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IDENTIFICATION 


PRODUCT CODE: AC~E442A-MC 

PRODUCT NAME : CVKDAAC PDT11/150 SYSTEM EXERCISER 
PRODUCT DATE: SEPT 1978 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNI BUS MASSBUS 
DEC DECUS DEC TAPE 
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1.0 


1.1 





GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THE PDT-11/150 SYSTEM EXERCISER TESTS THE PROCESSORS ABILITY 

TO OPERATE ALL ITS PERIPHERALS IN INTERRUPT MODE AT THE SAME TIME 
WITH EMPHASIS ON a a. SUBSYSTEMS. 

IT SHOULD BE NOTED THAT IT IS NOT A DIAGNOSTIC OF THE PERIPHERALS 
BUT A SERIES OF SYSTEM INTERACTION TESTS. 


THE PROGRAM IS DEFAULTED TO EXERCISE THE CLUSTER TERMINALS & THE 
COMM PORT IN INTERNAL LOOPBACK (MAINT) MODE 
THE -¢~ CAN BE CHANGED TO EXERCISE ANY OF THE CLUSTER TERMINALS 
os on THE COMM PORT IN EXTERNAL LOOPBACK. 

E PROGRAM OPTIONS SEC. 2.4. 


TESTING OF THE ACTUAL CLUSTER TERMINALS OR COMM DEVICE IS NOT PERFORMED. 
THESE DEVICES CAN ONLY BE TESTED EITHER IN EXT. OR INT. LOOPBACK. 


THE PRINTER LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT 
OR IF DATA TERM RDY IS ASSERTED ON ITS CONNECTOR. 


THE CONSOLE TERMINAL IS NOT TESTED. 


AFTER THE MEMORY HAS BEEN TESTED & ALL THE PERIPHERALS ARE 
BEING EXERCISED & INTERRUPTING AT RANDOM, THE DISK SUBSYSTEM TESTS WILL BEGIN. 


SEE TEST SUMMARY SEC. 7.0. 


THE PROGRAM CONTAINS A UTILITY WHICH CAN COPY THE SYSTEM EXERCISER DISK 
FROM DXO ONTO A SCRATCH DISK IN DXx1. 

THIS ENABLES THE OPERATOR TO CREATE BACKUP COPIES OF THE EXERCISER DISK. 
SEE SECTION 2.8. 


a a. CONTAINS A COMPATABILITY TESTING OPTION. 
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1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
PDT=-11/150 SYSTEM 
8K MEMORY = MINIMUM 
CONSOLE TERMINAL 
hg’ LOOPBACK CONNECTORS a FOR COMM & CLUSTER TERMINAL PORTS. 


(SEE PROGRAM OPTIONS SEC. 
VT=100 CONSOLE MUST BE SETUP FOR JUMP SCROLL. 


SOFTWARE REQUIREMENTS: 


THIS EXERCISER IS DESIGNED TO RUN IN ANY OF THE FOLLOWING WAYS: 
STAND ALONE 

WITH APT MONITOR 

WITH RT-11 MONITOR 


IT IS NOT DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR. 


RELATED DOCUMENTS AND STANDARDS. 
ne ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 


MD-11-DZZMA 
SYSMAC MD-11=DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES 
THIS EXERCISER ASSUMES THAT THE POWER UP SELF TEST RUNS ERROR FREE. 


ASSUMPTIONS 


THIS EXERCISER ASSUMES THAT THE OPERATOR HAS MODIFIED THE DEVICE MAP 
($DEVM) AT LOC. 1246 IF THE DEFAULTS DO NOT AGREE WITH THE ACTUAL 
SYSTEM CONFIGURATION. SEE PROGRAM OPTIONS SEC. 2.4. 

THE PROGRAM ALSO ASSUMES THE SOFTWARE SWITCH REGISTER IS 

PROPERLY SET UP (SWREG) AT LOC. 176. SEE SEC. 2.3. 


RUNNING SYSTEMS PROGRAMS 


UNLESS THE SYSTEMS PROGRAMS ARE KNOWN TO INITIALIZE THE BAUD 

RATES OF EACH DEVICE THRU THE PARAMETER REGISTER, 

THE OPERATOR SHOULD POWER DOWN & UP AGAIN WHEN FINISHED RUNNING THIS EXERCISER. 
THIS IS TO RESTORE THE PDT-11/150 TO ITS DEFAULT BAUD RATES. 

OTHERWISE, THE DEVICES WILL ATTEMPT TO RUN AT WHATEVER BAUD RATES 

WERE LAST USED BY THIS EXERCISER. 
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OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED PAPER TAPE. 
THE PROGRAM WILL AUTO-START AFTER LOADING. 


THE SYSTEM EXERCISER DISK WILL AUTO-START AFTER BOOTING. 


EXAMPLE OF STARTUP ASSUMING PRINTER NOT PRESENT, 24K MEMORY, 
& TERM #2 NOT TO BE TESTED, COMM PORT EXT. LOOPBACK, TERM 1 & 3 INT. LOOPBACK. 
(20007 IN SDEVM, SEE SEC. 1.5): 


PDT=11/150 SYSTEM EXERCISER 
= 000000 NEW = 110000 <CR> (HALT ON ERR, ENABLE PERFORMANCE REPORTS) 
DEVM = 000017 NEW = <CR> (KEEP DEFAULTS) 


24K MEMORY PRESENT 
PRINTER NOT PRESENT 
TERM #2 TESTING DROPPED 


INSERT SCRATCH DISKS, TYPE 'P* FOR NORMAL TESTING 
"2406" FOR NORMAL RESTARTS 

TO COPY SYS EXERCISER DISK 

*260G* FOR COMPATABLITIY PASS 1: WRITE 

"270G" FOR PASS 2: READ 


(PROGRAM HALTS & WAITS FOR 'P* & CONTINUES....ABOVE NOTE & HALT OMITTED UNDER APT) 
THE PROGRAM WILL BEGIN ACTUAL TESTING AT THIS POINT. (SEE SUMMARY OF TESTS SEC. 7.0) 
DURING THE TESTS, THE PROGRAM WILL PRINT PROGRESS REPORTS (SEE SEC. 4.1) IF 

BIT 12 IS SET IN THE SWREG (SEE SEC 2.3). 


END OF PASS & TOTAL ERROR COUNT IS PRINTED AT THE CONCLUSION OF TESTING. 
THE PROGRAM JUMPS TO THE BEGINNING & THE ABOVE SEQUENCE IS REPEATED UNTIL HALTED. 
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2.2 





SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
‘INDER APT, RT-11 MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (SWREG AT LOC. 176) FROM THE CONSOLE. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE CONSOLE TO ENTER 
te INTO LOC. 176 AT SELECTED POINTS WITHIN THE 


2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE *NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE CONSOLE: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A_<CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A CONTROL U <“U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN ;* QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 
SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 

HALT ON ERROR 

INHIBIT ERROR TYPEQUTS 


ENABLE PERFORMANCE REPORTS 
BELL ON ERROR 


100000 
20000 


10000 
2000 


H 
PDT=11 EXERCISER MACY11 27(654) 20-SEP-78 10:40 PAGE 7 
CVKDAA.M11 
2.4 PROGRAM OPTIONS. 
A DEVICE MAP (SDEVM) AT LOCATION 1246 (ENTERED BY A CONTROL=G & CONTROL-C) 
IS EXAMINED BY THE PROGRAM TO DETERMINE THE METHOD OF TESTING 
THE CLUSTER TERMINALS & THE COMM PORT. 


THE DEFAULT VALUE = 000017 (INTERNAL “LOOPBACK FOR COMM PORT & CLUSTER TERMINALS) 
IT CAN BE CHANGED TO DO THE FOLLOWING: 


SDEVM (LOC 1246) ENTERED BY CONTROL-G & C 


PRINTER TESTS 
CLUSTER TERM 5 TESTS 


#1 
DROP ASYNC COMM TESTS 


CLOCK TESTS 


LOOPBACK (MAINT MODE) FOR COMM PORT (DEFAULT) 
LOOPBACK (MAINT MODE) FOR TERM #1 (DEFAULT) 
LOOPBACK (MAINT MODE) FOR #2 (DEFAULT) 
LOOPBACK (MAINT MODE) FOR #3 (DEFAULT) 


LOOPBACK FOR COMM PORT. 
LOOPBACK FOR TERM #1. 


LOOPBACK FOR TERM #2. 
LOOPBACK FOR TERM #3. 


1. THE CONSOLE IS NOT TESTED. ( 
2. BITS 15-7 SETTINGS WILL OVERRIDE BIT 3-0 SETTINGS. 


THE PRINTER LOGIC WILL BE TESTED IF BIT 15 = 0 & THE DATA TERM READY 
IS ASSERTED ON THE CONNECTOR. (A PHYSICAL PRINTER IS NOT REQ'D) 


A VT~50,52 MAY BE USED INSTEAD OF A PRINTER FOR A VISUAL CHECK. 
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2.5 EXECUTION TIMES. 


ASSUMING ALL DEVICES & 2 DISK SUBSYSTEMS PRESENT: 
1°ST PASS: 
a 25 = 30 SEC TO STARTUP CLOCK, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
10 = 40 SEC TO WRITE, READ & DATA COMPARE 1'ST TRACK ON BOTH DISKS. 
5 = 60 SEC TO DO 10 RANDOM SEEKS ON EACH DISK BETWEEN 1°ST 10 TRACKS. 


SUBSEQUENT PASSES: 


30 SEC TO STARTUP CLOCK, PRINTER, COMM DEVICE & CLUSTER TERMINALS. 
20 MIN TO WRITE, READ & DATA COMPARE ALL TRACKS ON BOTH DISKS. 
5 MIN TO DO 500 RANDOM SEEKS ON EACH DISK BETWEEN ALL TRACKS. 


POWER FAIL 
THERE IS NO POWER FAIL AUTO-RESTART CAPABILITY IN THE PDT=-11. 


COMPATABILTIY TESTING 


PASS 1: ENTERED FROM A °260G’. 
WILL WRITE ALL TRACKS & SECTORS ON SELECTED DRIVES 
& HALT AFTER AN OPERATOR PROMPT. TYPING 'P* WILL BEGIN PASS 2. 


PASS 2: ENTERED BY A ‘P* AFTER THE ABOVE HALT, OR A ‘270G' 
WILL PERFORM SEQUENTIAL & RANDOM READS ONLY, ON THE SELECTED DRIVES. 


COPY UTILITY 


TO PROVIDE BACKUP DISKS, A UTILITY IS PROVIDED IN THE PROGRAM TO COPY 
THE SYSTEM EXERCISER DISK FROM DXO TO DX1 IN THE FOLLOWING WAY: 


BOOT EXERCISER NORMALLY FROM Dx0. 

ALLOW THE PROGRAM TO HALT AFTER THE WARNING git * TO USE SCRATCH DISKS. 

AT THIS POINT, DO A *250G' TO ENTER THE COPY UTILIT 

THE OPERATOR WILL BE PROMPTED TO USE A SCRATCH DISK” IN DX1 & TYPE "P" TO PROCEED. 
WHEN COMPLETED, THERE WILL BE A VERIFYING MESSAGE. 

THE OPERATOR CAN THEN DO A ‘P* TO COPY ANOTHER IN THE SAME MANNER, 

OR A '240G* TO BEGIN NORMAL TESTING. (OPERATOR WILL BE PROMPTED) 

THE COPY UTILITY CAN BE ENTERED AT ANY TIME BY DOING A ‘BREAK’ & ‘250G°. 
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3.0 ERROR INFORMATION. 
3.1 


TYPICAL ERROR PRINTOUTS ARE SHOWN BELOW: 


TERM #3 DATA or ERR 
ERROR # ERR PC EXPECT RECVD 
000011 006516 000200 000100 


DX1 SOFT ERR - DATA COMP 
DXTST # ERR PC RXCS RXES RXSA EXPECT RECVD # RETRIES 
000003 010636 100337 000230 003405 100520 100120 4 


DXO HARD ERR - AFTER ah CMD 
ERROR # DXTST # ERR RXCS RXES TRACK SECTOR A#RETRIES 
000016 000001 011266 100337 000230 59 18 10 


WHERE ALL VALUES TYPED ARE OCTAL EXCEPT : 
#RETRIES, TRACK, & SECTOR WHICH ARE IN DECIMAL. 


BITS 15,13, & 10 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
JF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 

THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


NOTE: SINCE THERE ARE NO SPECIFIC TEST NUMBERS, APT WILL 
REPORT ALL ERRORS AS TEST 0 ERRORS. 


ERROR HALTS. 


THE ONLY HALT IN THE EXERCISER IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 





PDT=11 EXERCISER 
CVKDAA.M11 


4.0 


MACY11 27(654) 


kK 
10:40 PAGE 10 


20-SEP-78 


PROGRESS & PERFORMANCE REPORTS 


THE FOLLOWING REPORTS ARE ENABLED BIT 12 SET IN THE SWITCH REGISTER (SwkRte LOC 176) 
& WILL APPEAR FOLLOWING LOADING & STARTING AS DESCRIBED 
IN SECTION 2.1 (ASSUMING ALL DEVICES ARE TO BE TESTED & NO ERRORS): 


MEM TESTS DONE 


CLOCK RUNNING 


PRINTER RUNNING 


SYNC COMM DONE 


ASYNC COMM RUNNING 


TERM #1 RUNNING 


TERM #2 RUNNING 
TERM #3 RUNNING 


DXO TRK O DONE 


DXO DATA PATT DONE 
DX1 DATA PATT DONE 


DXO RANDOM SEEKS DONE 
DX1 RANDOM SEEKS DONE 


END OF PASS A 


(ALL_MEMORY FROM LOCATION 0 TO THE BEGINNING OF THE 
MONITOR/ABS LOADER HAS BEEN TESTED. 


(100 INTERRUPTS HAVE BEEN DETECTED BEFORE 
EXERCISING THE NEXT DEVICE. 
THE CLOCK CONTINUES RUNNING IN INTERRUPT MODE.) 


(S LINES HAVE BEEN PRINTED WITH ERROR BIT CHECKING ONLY. 
THE PRINTER RUNS CONTINUOUSLY IN INTERRUPT MODE AT 9600 BAUD. 
ITS ACTUAL PERFORMANCE IS A VISUAL CHECK IF PRINTER CONNECTED. 
NO OTHER CHECKING PERFORMED IF EXTERNAL LOOPBACK USED. 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED WITH ODD PARITY ENABLED. 


INTERRUPTS ARE THEN DISABLED & THE SYNC COMM IS NO 
THIS IS SO THAT THE ASYNC COMM CAN BE EXERCISED 
FOR THE DURATION OF THE PASS.) 


(CHARS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED BEFORE 
EXERCISING THE NEXT DEVICE. 

IT CONTINUES RUNNING IN INTERRUPT MODE AT 9600 BA 

WITH ODD PARITY ENABLED & REPEATS THE 0 THRU 377° CYCLE) 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED 

& RECEIVED BEFORE EXERXCISING THE NEXT DEVICE. 

THE TERMINAL KEEPS RUNNING CONTINUOUSLY AT 2400 BAUD 
IN INTERRUPT MODE & REPEATS THE 0 THRU 377 CYCLE) 


(SAME AS #1) 
(SAME AS #1) 


(DRIVE 0, TRACK O IS WRITTEN WITH 
(DRIVE 1, TRACK 0 IS WRITTEN WITH 
(ETO) 

(ETC UNTIL...) 

(ALL TRACKS HAVE BEEN WRITTEN WITH A DATA PATTERN IN INTERRUPT MODE .) 
(SAME AS DX0....TRK 0 ONLY FOR 1°ST PASS QUICK VERIFY) 


LONGER EXERCISED. 


A DATA PATTERN, READ & DATA VLOMPARE 
A DATA PATTERN, READ & DATA COMPARE 


PERFORMED) 
PERFORMED) 


(500 RANDOM SEEKS WITH READ & DATA COMPARE HAVE BEEN PERFORMED ON DRIVE 0 ) 


(SAME AS DXO... 


TOTAL ERRORS: 0 
TOTAL SOFT ERRORS: 0 


TOTAL ERRORS THIS PASS: 0 
SOFT ERRORS THIS PASS: 0 


-10 RANDOM SEEKS ONLY FOR 1'ST PASS QUICK VERIFY) 


(...& ENTIRE PROCESS REPEATS) 


SEQ 0010 
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5.0 DEVICE REGISTERS. 


PARAMETER REGISTER: 
; ee Se” ee. 9 8 7 6 5 & 3 2 1 0 


TAREE IOISISISIISISISIIIUISIOIIOISIIIUISIOIOIOIUIDIDIOIUIOIIOIUIDIDISIUIUIOIDISIOIISIIOIOIOIOIOIUIOIOIOIOIOIOIIIOII IIIT IIE 
: : PORT : BAUD ! USR! USR!PAR !PAR ! CHAR -MAIN: ! 177420 (WR ONLY) 
: : SELECT : RATE ! LT2! LTT!TYP !EN ! LENGTH ! : 


POTTS TTT TOT TTT TTT TTT TTTTTETTT TITTLE LECT TTT TELE LETT TLL TLE TTL 
' | ! ' ' 


LINE CLOCK: VECTOR: 100 
iin ae. oa. oo 10 S 8 7 6 5 4 3 2 1 0 


PARAS SAALALALALALALELALELARE ASAE RESALES SSAA LARA R SARA ARRAS E SASSER SARL RARE ELA SS DS 
' ' ' ' ! ' ' ' | 'CLK 4 ' ' ' ' i ' 177546 
' ' ! ' ! ' ' | ' ‘IE i ' ' ' ' ' ! 
TOISAS IOISIOISISIIOISIIOISIOIISIOIOIIOIOIDIOIISISIOISIIOIUIIOIDIUISIOI OIC IOI I ot 

' ' ' ' ' 


CONSOLE : ADDR: 177560-177566 VECTOR: 60/64 

CLUSTER #1: 176500-176506 300/304 
#2: 176510-176516 310/314 
#3: 176520-176526 320/324 


lh oe oe 9 8 7 6 5 6 3 2 1 0 

KEKE EKER EKEEKEEEEEKEEKEKEEEKEEKEKEEKEKEKE 
TKS: ' ' ' ' ' J ' 'RCVR'RCVR! ' ' ' ' | ' 
' ' ' ' ' ' ' 'DONE ' IE ‘ ' ' ' ' ' ' 
FEES SIOISIIOISIOIOIIIIOISIOIOIIIOICIIOIOIOIIOIIIOIOISI IOI IOI IOIOICIIUIOIIOIOIOI TOI IORI IO tok 
TKB! : ; ; : : : : : KB DATA BUFFER : 
' ! ' ' ' ‘ ! ! ! ' 
KEKE EKER EERE EEEEEKEKEREEEREEEEEEKEEKEKKKE 
TPS. ' ! ! ' ' ' ' 'XMIT!XMIT! ' ' ' ' ' ' 
4 ' ' ' ' ' ! 'RDY ‘IE ' ! ' ' ! ' ! 
TESS ICIIDOIII DEI DE EIR nt hitttn 
TPB. : ; : : ; : : ' PRINTER DATA BUFFER : 
; ; : : : : : ; (WRITE ONLY) ; 
UC TT TTT TTC TILT TTT TTT TTT TTT CTE TU TTT TTT TT TTT TL TTT TTT T TTT TTT TTT 

! ' ‘ ' « ' 
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PRINTER: VECTOR: 200 
o Si. See 9 8 7 6 5 4 3 2 1 0 


TAOS IOIUIIIISISIIIISIIOIISISIIOIUIISIDIDISIOIUISIOIOIUIOIOIIIDIDISIDIOISIDIIOIUIOISIGIUIIOIOIOIOII I IIIT 
PRS «ERR : : : : ; : : 'PRIN!PRIN! : : : : : ! 177514 
i i i i i i i iRDY ‘JE ! i i i i i i 

TETTTIETITTT TTI TTTT LIL EL LE LLL LEL ELL LL ELLE LET LLL ELLE LLL LLL LLL LLL LLL 
PRB: : 4 : : 4 : : : PRINTER DATA BUFFER ! 177516 
; : : ; ; ; : : (WRITE ONLY) : 
UTE TTTITTCTITTTITITT LITT TTT ET LLL ELLE EEL ELE LLL LLL LLL ELLE LLL LLL LLL 
' 1 1 ' ' 


ASYNC MODEM: VECTOR: 330/334 
s ws 3 WW Wise 9 8 7 6 5 4 3 2 1 0 


SORES SUIS IIISIOISIIOIUIOIUIOISIOISIOIIOIOIOIDIOIOIIOIOIOIDIDIDISIDIIOIOIOIOISICITIIOIOISIOI III II IOI 
RCSR! DSI!RING! CTS! CAR! ! SEC!DSET! 'RCVR!RCVR!DSET! : SEC. RTS! DTR! ! 176610 
: : : ! DET! ! REC! RDY! 'DONE!IE ‘IE ! iXMIT : ; : 
BORO III RII EITC ROI ROTI ORI IIIT RAO TOTTORI SIA SABA AAI AI IAEA ASA AISI ISAS AAI AAA 
RBUF! ERR!OR !FR_ !PAR ! ; ’ : : RECEIVER DATA BUFFER ! 176612 
; ‘ERR 'ERR 'ERR ! ; : : : § 
OTT T TITTLE LITE TTT TT LIT TTL LLL TELE LE LEE LETT LU LLL ELLE LLL LLL LLL LLL ELL 
XCSR: : : : : : ; : . 'XMIT!XMIT! : : . . : BRK ! 176614 
: : ; ; : ; : smeY iE : : : : : 
FOR I ROI IOI IOI RR ICRI RIOR IORI TORII IIASA SIA ASIII ASIAI AIA A IIIA ASIII ASIII AA AANA 
XBUF « : ' : : : : ’ - TRANSMITTER DATA BUFFER ! 176616 
: : : ; : ; : : ; (WRITE ONLY) : 
TTT TETT LITT TITT LITT LEL TELE LT LETT LLL LE LULL LULL ULL ELLE ELE LLL LLL 
\ i 1 ' ' 


SYNC MODEM: VECTOR: 340/344 
ae a a ww 9 8 7 6 5 4 3 2 1 0 


RARER EERERKEEKEEREEREEEEEEEKEEEEEEEE 
RCSR! DSC!RING! CTS! CAR!REC ! SEC!DSET!STRP!RCVR!RCVR!DSET!SRCH! SEC! RTS! DIR! ! 176620 
i DETIACT | REC! RDY!SYNC!DONE'IE !JE !SYNC!XMIT! 
CRRA REREE REA EREERR EERE ERR ERR RARER ERE ERE RR RRA E EER ERE RRR RRR ER RR Ee 
ms emion s+ wt tl ltl RECEIVER DATA BUFFER ! 176622 (RD ONLY) 
‘ERR ' ‘ERR i 4 ' ' ‘ ' 
POUT TTTCTTTCTTTTTC TT TTT TTTTTTTTT TET TTTTTTTETE TET TTT TTT TTT TTT TTT TTT ttt 
PCSR!  !SYNC!_!—! WORD) !PAR EVEN! SYNC REG ' 176622 (WR ONLY) 
iCHAR! =| =} LENGTH ‘IE PAR } 
REE RRERR REAR RRR RRR RRR ER RRR RRR ee 
XCSR!DNA !  ! {MA IMA tt IMAST!XMIT!XMIT!DNA !SEND!H/F ! ! =! ! 176624 
i imope'cuk ! =} ~—s inst impv te tre $) ip tl tlt 
PTT TT TTT TITTLE TINT TTT TTT LETTE LITT T ETT TTT TTT TTT TTT TTT TTT TTT 
saad Te en ee Ce ies se ey TRANSMITTER DATA BUFFER ! 176626 
Sah Fon Dee Roe Oe ee (WRITE ONLY) 
POTTS TTT TTT TTT TT TTT TTT TTT LTT TT LET TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
' ' ' ‘ ! 





N 
PDT=11 EXERCISER MACY11 27(654) 20-SEP-78 10:40 PAGE 13 
CVKDAA.M11 SEQ 0013 


DISK: ; VECTOR: 264 
oe ao ee et 9 «8 Pr ~¢ 5 ei 9 2 1 0 


PTETTTITI LITT TTT iiiititit iii titi iii iiiti iii iitii iii is 
RXCS'ERR ! ; : : ; : ; ‘CTL !DRV ! 'UNIT! FUNCTION ! GO! 177170 

: : ; : : g ; : 'DONE!IE ! +: : : 

RARER RERRE RARER RARER EERE AEE RAAT EREAAAEERERARARREE EERE REE RRR REE 


RXDB! DATA BUFFER ! 177172 


(ARR RRRRRRRSRSSSSSASERSERRRASESA RRR ARERR RRR RSE ARRAS ERR SRR SERRE RRR RRR RRR RRR RRR RSD ES 


RXES! ; ; : : : : : ‘DRY ! ! DEL!RNF !CRC !LOST! INV! ID ! 177172 


: - : ; : ; ; ; 'RDY ! 'DATA! ; !DATA! ADDR! : 
AEKKRERERERAEEER EERE ERE EE RE ERERERAEARE ERRATA RE TREE RRRE TERRA EERE EKER RER eRe 
RXSA! : TRACK O = 114(8) : : : : SECTOR 1 = 32(8) ! 177174 
' ' ! ! ' ' ' 
PUTTS ETITITITITITITITT TITTLE LLL LLL TLE LL LETT LLL 
i] ! ! ' ! 


DEVICE CONNECTOR LAYOUT 


RATA AERARARAERAARAARARAEARERARRARAREAARERRERERERERERE ahhh 
* * & 


CLUSTER TERMINAL #3 COMM PORT 
PORT 


* * * 
(ARRAAAAALA SALA 2222 RR SSS SEER ERE RRR ERE ESSER SRR RR RRR RRR RSE SE 
* o w 


CLUSTER TERMINAL #2 PRINTER PORT 
PORT 


* we * 
(RRRASAASALALLLASSASSALS SELES ESE SERRE SESE RRR RRS E SRR R RRS SS 
2 * * 


CLUSTER TERMINAL #1 CONSOLE PORT 
PORT 


* * & 
(ARR RRRRASSASSSLASLLSSSSES SESSLER EERE ESSE EERE RRS SEER RR RRR EES SY 
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SEQ 0014 


SUMMAR) OF TESTS (SEE PROGRAM LISTING FOR ADDT'L DETAILS ON SPECIFIC TESTS) 


——<—-— «© =e aeeee 


PHASE 1 
MEMORY TESTS A. LOC 0 THRU END OF PROGRAM IS TESTED FOR TIMEOUT. 
B. END OF PROGRAM TO BOTTOM OF oh LOADER 
IS TESTED WITH A 1010 & 0101 PATTERN 
C. IF 28k PRESENT, MEMORY FROM 28K TO 30K IS SIMILARLY TESTED. 
PHASE 2 


ALL AVAILABLE PERIPHERALS ARE EXERCISED CONTINUOUSLY IN INTERRUPT MODE. 


SEE SECTION 2.4 FOR DETAILS OF SETTING UP THE DEVICE MAP ($DEVM) FOR DEVICE TO BE TESTED. 
SEE SECTION 4.1 FOR DETAILS ON PROGRESS REPORTS. 


START LINE CLOCK INTERRUPTS ARE DETECTED. 
START PRINTER CONTINUOUS LINES ARE PRINTED. 
START SYNC COMM PORT CHARS 27 THRU 377 ‘* °° ** 1 PASS ONLY 
START ASYNC COMM PORT CHARS 0 THRU 377 TESTED CONTINUOUSLY. 
START CLUSTER TERMINAL #1 CHARS 0 THRU 377 ARE XMITTED, REC'D & TESTED. 
START CLUSTER TERMINAL #2 SAME 
START CLUSTER TERMINAL 43 SAME 
PHASE 3 


WHILE THE ABCVE DEVICES ARE INTERRUPTING RANDOMLY, DISK SUBSYSTEM TESTS BEGIN: 
FILL & EMPTY BUFFER TESTS ARE PERFORMED TO VERIFY THAT NO 
CABLE CROSS-TALK PROBLEMS EXIST BEFORE BEGINNING ACTUAL 
DATA TRANSFERS TO THE DISK SURFACE. 


DXO & DX1 DATA PATTERN: WRITE, READ & DATA COMPARE 1°ST 10 TRACKS ON 1'ST PASS. 
ALL TRACKS ON SUBSEQUENT PASSES. 


DXO & DX1 RANDOM SEEKS: READ & DATA COMPARE. 
20 SEEKS ON 1'ST 10 TRACKS ON 1°ST PASS. 
500 SEEKS ON ALL TRACKS ON SUBSEQUENT PASSES. 


DXO INITIALIZE, RESTORE, WRITE DELETED DATA, READ STATUS, & INVALID ADDRESS TESTS. 


NOTE: 


1, RECOVERY IS PERFORMED (RESTORE COMMAND) AFTER ANY RNF ERROR ON WRITE OR READ. 
2. DATA IS TESTED AFTER A HARD CRC ERROR ON A READ TO TEST WHETHER DATA CRC ERROR OR CRC ERROR. 


Sead — 


001100 


000011 
000012 
000015 
000200 
177776 


177774 


MACY11 27(654) 
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TITLE PDT=11 <r 
3*COPYRIGHT (C) 1978 
:*DIGITAL EQUIPMENT _ CORP. 
s SMAYNARD . MASS. 01754 


! PROGRAM BY GARY PAPAZIAN 


‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
[*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-* 


-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 
ENABLE PERFORMANCE REPORTS 
BELL ON ERROR 


-SBTTL BASIC DEFINITIONS 


3*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ; BASIC DEFINITION OF SCOPE CALL 


:*MISCELLANEOUS DEFINITIONS 
HT= 11 :;CODE FOR HORIZONTAL TAB 
: 3 CODE FOR LINE FEED 
ODE FOR CARRIAGE RETURN 
7:CODE FOR CARRIAGE RETURN-LINE FEED 
:sPROCESSOR STATUS WORD 


2 STACK LIMIT REGISTER 
OGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 
DDISP= 177570 3 sHARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 NERAL 


; GENERAL REGISTER 
7 GENERAL REGISTER 
: ¢GENERAL REGISTER 


: PROGRAM COUNTER 


SEQ 0015 
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BASIC DEFINITIONS 


;*PRIORITY LEVEL DEF INIT 
PRO= 0 


IONS 
3;PRIORITY 
3zPRIORITY 


7 zPRIORITY 
; PRIORITY 


3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15= 100000 


PR1= 40 

PR2= 100 

PR3= 140 

PR4= 200 

PR5= 240 

PR6= 300 
PR7= 340 

00 

SW14= 0000 
Sw13= 20000 
SW12= 10000 
SW11= 4000 
SWw10= 2000 
SwO9= 1000 
Swos= 400 
Sw07= 200 
SwO6= 100 
SwOS= 40 

Sw04= 20 

SwO3= 10 

SwO2= 4 

Swol= 2 

Swo0= 1 

-EQUIV SW09,SW9 
-EQUIV SW08,SW8 
-EQUIV SWO07,S 
EQUIV SW06,SW6 
EQUIV SwW05,SW5 
EQUIV SW04,SW4 
EQUIV SwW03,SW3 
EQUIV SWO02,SW2 
EQUIV SWO1,SW1 
EQUIV Sw00,SWO 
: *DATA 

BIT15= 10000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO6= 100 

BITO5= 40 

BIT04= 20 

BITO3= 10 

BITO2= 4 


NOUS WH Oo 


SEQ 0016 


E , 
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CVKDAA.M11 BASIC DEFINITIONS SEQ 0017 


2 


000002 
000001 1 
BIT09,BIT9 


-EQUIV BITOO.BITO 


3*BASIC *'CPU"’ TRAP VECTOR ie ae 
ERRVEC= 4 TIME OUT AND OTHER ERRORS 
RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=1 ss v BIT 
1 3 TRACE TRAP 
1 ‘BREAKPOINT TRAP (BPT) 
3; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
3sPOWER FAIL 
;sEMULATOR TRAP (EMT) **ERROR** 
;3'"TRAP’* TRAP 


>: TTY KEYBOARD VECTOR 
64 S!TTY PRINTER VECTOR 
PIROVEC=240 ‘PROGRAM INTERRUPT REQUEST VECTOR 


b KK KKK KKK KEKE EERE KEKE REECE KKEEKKEKKKEKEKEKEKEKKEKEKEE 


:* PDT-11/150 DEVICE VECTORS 


‘mA AAASESEAAASELASASALSALALALSELALASEAA AAAS ALARA AAAS AAR AAS SS SS DG 


000200 PRVEC= 200 :PRINTER 
000100 CLKVEC= 100 LINE CLOCK 


000330 AMRVEC= 330 ;ASYNC MODEM RECVR 
000334 AMXVEC= 334 3 XMITR 


000340 SMRVEC= 340 SYNC MODEM RECVR 
000344 SMXVEC= 344 5 XMITR 


RXVEC= 264 :DISK 


TKIVEC= a sCLUSTER TERM #1 VECTORS 
310 : #2 
314 
320 : #3 
AE TP3VEC= 324 
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177420 
177546 


177514 
177516 


176610 


177174 


176500 
176502 
176504 
176506 


176510 
176512 
176514 
176516 


176520 


176526 


F 
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CVKDAA.M11 BASIC DEFINITIONS 


MARA SAAALASLAAALASALARASLARASR SALAS ES ASS RARASR SASS SES ASRS SSE SS S| 


PDT=11/150 DEVICE REGISTERS 


MADARA AAASAALALAAALALAAAASASASE SALAS E ARES AR RAR ARERR RASA R RAE S SSS SD 


177420 
177546 


177514 
177516 


176610 
176612 
176614 
176616 


176620 


176626 
177170 


177174 


176500 
176502 
176504 
176506 


176510 
176512 
176514 
176516 


176520 


176526 


;PARAMETER REGISTER 
LINE CLOCK 


PRINTER STATUS REG 
BUFFER 


= ASYNC MODEM RECVR STATUS REG 
BUFFER 

XMITR STATUS REG 
BUFFER 


;SYNC MODEM RECVR STATUS REG 
; BUFFER 


;DISK CSR 


PARAMETER REG 
XMITR STATUS REG 
BUFFER 


DATA BUFF 
ERROR & STATUS REG 
TRK & SECTOR ADDR REG 


CLUSTER TERMINAL #1 


(WRITE ONLY) 


(WRITE ONLY) 


(WRITE ONLY) 


(READ ONLY) 
(WRITE ONLY) 


(WRITE ONLY? 


SEQ 0018 
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—MALSAALAASALASAASAALASSAERARAAARA LARS ALASAS ALARA EASES ARRAS AR ARES SSS DY 


4 PARAMETER REGISTER EQUATES WRITE ONLY 


MARSA AASAALASASAALASLASASAASASASASESSA LESSER EASA SARS ASSESS SS S| 


:BIT 14-12 PORT SELECT 
CONSOL= 10000 :SELECT CONSOLE TERMINAL 


CLUSTER TERMINAL #1 
#2 
#3 
ASYNC COMM PORT 
USER LIGHTS 


(DELTA = 400) 


: PRINTER PORT 


(CLUSTER DEFAULT) 


37200 
70 39600 (PRINTER & ASYNC DEFAULT) 
B1 9200= 7400 719200 


“IF 110 BAUD SELECTED, 2 STOP BITS ARE ASSUMED. 
BITS 4-5 PARITY CONTROL 


EPAR= 60 ZEVEN PARITY ENABLE 
OPAR= 20 [ODD PARITY ENABLE (DEFAULT) 


:BITS 3-2 CHARACTER LENGTH (DELTA = 4) 

0 :5 BITS/CHAR 

& 76 

10 27 
14 78 (PRINTER, TERMINAL ,MODEM DEFAULT) 
MAINTENANCE BIT 


BIT! ENABLE MAINT MODE 
;PRINTER & DISK DO NOT HAVE MAINT MODE 


SEQ 0019 
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CVKDAA.M11 BASIC DEFINITIONS 


ISAO SIIOISIOIIOIIOIIOIUIOISISIIDIOIOIOIUIOIUIOIIOI IOI II IOI IOI III TOTTI TTT 
s* ASYNC MODEM BIT DEFINITIONS 


WEARS SAAARERASASLALEALARARASLESAASERAR SERA RARE SSAA ALARA RASA SRS 


DATA SET INTERRUPT 
;RING 


;CLEAR TO SEND 

; CARRIER DETECTED 

; SECONDARY RECD/SUPERVISORY RECD 
DATA SET RDY 

7RECVR DONE 

sRECVR IE 

;DATA SET IE 

SECONDARY XMIT/SUPERV XMIT 

;REQ TO SEND 

DATA TERMINAL RDY 


ERROR 

; OVERRUN ERROR 
;FRAMING ERROR 
;PARITY ERROR 


;XMIT RDY 
:XMIT IE 
; BREAK 


SEQ 0020 
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MARRS AASAASAASZALASASLASLARALASAAR SAAS SSASAS ALARA RAS AR SAS AR SESS SEES 


SYNC MODEM BIT DEFINITIONS 


MARRS SAAAAAALALASEALALASALALESL SALSA SALAS RRS ARSE RS AS SARA R ASSES SD 


DATA SET CHANGE 
;RING 


:CLEAR TO SEND 

; CARRIER DETECTED 

sRECVR ACTIVE (SYNC DETECT) 
SECONDARY RECD/SUPERVISORY RECD 
DATA SET RDY 

:STRIP SYNC 

:RECVR DONE 

sRECVR IE 

:DATA SET IE 

SEARCH SYNC 

SECONDARY XMIT/SUPERV XMIT 
REQ TO SEND 

DATA TERMINAL RDY 


BI115 ERROR 

BIT14 ; OVERRUN ERROR 

BIT12 PARITY ERROR 
sPARCSR PARAMETER CONT REG 


‘BIT 14 SYNC CHAR 


0 32 SYNC CHARS (DEFAULT) 
BIT14 31 


10-11 WORD LENGTH 
3:5 BITS/CHAR 


:? 
38 (DEFAULT) 
;BITS 8-9 PARITY CONTROL 


ENVPAR= 1400 :ENABLE EVEN PARITY 
ODDPAR= ‘ENABLE ODD PARITY (DEFAULT) 


;DATA_NOT AVAIL 
MAINT MODE 
MAINT CLOCK 
MASTER RESET 


SEQ 0021 
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1007 00 ;XMIT RDY 
1008 :XMIT IE 
1ON0 00040 DATA NOT AVAIL IE 


; SEND 
‘OID ;1=HALF DUPLEX, O=FULL DUPLEX (DEFAULT = O FOR TESTS) 


FF RIK IK KEKE IKEEKREKEEKEKEENK 


:DISK BIT DEFINITIONS 


FF I KIRKE REE EEK EERE KEE EERE KEK KEK KKK 


; I 
[UNIT SELECT: O=Dx0, 1=Dx1 
UNIT SELECT 


FUNCTIONS (INCLUDES BITO = GO) 


:FILL BUFFER 

sEMPTY BUFFER 

zsWRITE SECTOR 

READ SECTOR 

: INITIALIZE 

:READ STATUS 

WRITE DELETED DATA SECTOR 
RESTOR= RESTORE TO TRACK 0 


;RXES: ERROR & STATUS 
BIT7 


DRIVE RDY 
DELETED DATA DET. 
RECORD NOT FOUND 
:CRC_ERROR 
;LOST DATA 


: INVALID ADDR 
: INITIALIZE DONE 
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MARAE AASLASAAALALASLLALERALALASLASASELASELASAS ASSES EASA SEAS RRR E SS SY 


SWITCH REGISTER 


MARE SSSASALALSALALALALASSLAL ASE ESE EAS ELAS ASRS RSE SERRE SRR RS AS SS 


SOFTWARE DISPLAY REG 
SOFTWARE SWITCH REG 


SETUP CLOCK VECTOR AREA TO DO RTI 
7 IF ENABLED 


003174 MP ZUSE ONLY ONCE. WILL BE OVERLAID BY 
:PRINTER VECTOR ADDR. 


003174 MP :RESTART ADDR 


003156 MP sENTER HERE FOR COPY UTILITY 
003136 MP :COMPATABILTIY PASS 1 
003144 MP PASS 2 


-=1000 
-SBTTL APT PARAMETER BLOCK 


DUAR OI IAI IIS ISIIOIDIOISI III IOIIOIIOIDIIIOIOIIIIDIOIOIIOIOIUIOIIOIUIOIIUIOIIOI OR 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
eerie ti titi ttitiitititiitiiittttititiititiiiititiiiilitiiririiy, 
fh ws a CURRENT LOCATION 
T POWER FAIL TO POINT TO START OF PROGRAM 
33FOR APT START UP 
oe — INDIRECT ADDRESS PNTR. 
2ePOIN T HEADER BLOCK 
-=. ‘RESET LOCATION COUNTER 
ett i ii tigii titi titiiiittiitii titi itiiiiiitiiiiiiiiiririii irl 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

$HIBTS: 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD : ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: . RUN TIM OF LONGEST TEST 

SPASTM: . ° UN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNI TM: 0 DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
. SETEND-SMAIL/2 ;-LENGTH MAILBOX~E TABLE (WORDS) 
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CVKDAA.M11 COMMON TAGS SEQ 0024 


-SBTTL COMMON TAGS 


LAA EREEE KERR EEE EERE EE 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


— 
er 


:zSTART OF COMMON TAGS 


;zCONTAINS THE TEST NUMBER 
ie ERROR FLAG 
SUBTEST ITERATION COUNT 


Cc URN ERROR 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
aa DATA 


Ronn ny oe a oe 
ALNOOUENSO 


ae AINS DATA 

;sRESERVED--NOT TO BE USED 
3 AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


: sADDRESS OF SWITCH REGISTER 
:zADDRESS OF BS gins REGISTER 


feleoleleleleleleler jeleleleleleloalo) 


J 
Sy 
rs 
v 


: ER 
SITY PRINTER STATUS REG. ADDRESS 
:-TTY PRINTER BUFFER REG. rs ty 


OR FILLS 
53 FILLER CHARACTERS tts oe 

2 ;3 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 

0 ;""TERMINAL AVAILABLE’’ FLAG (B1T<07>=0=YES) 

+ anal ata : CODE FOR BELL 


SQUESTION MARK 
<i5> i: CARRIAGE RE TURN 
<12> LINE FEED 


Sh ainkataseanscadionsanen leaded taananssnsemenalicnsbamennaetill 


-SBITL APT MAILBOX-ETABLE. 


J PAAR EREREAEEAEERRERERERAEREREEEREERERERERER KEE 


EF et i lr gd ae ee gee eee ee wet ee EET 
SEB EWWAWAW NONEPONPONO NO NOY 3 Ss Ss Sw ws 


— 
™ 
> 


;;APT MAILBOX 
3sMESSAGE TYPE CODE 
7:FATAL ERROR NUMBER 


1 
1 
1 
1 
1 
; 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


rs UNIT NUMBER 
: :MESSAGE ADDRESS 
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000000 ; 3 ;MESSAGE LENGTH 
: 23 APT ecmment bet TABLE 
000 YTE 
000 


SENVM: I MENT MODE BITS 
000000 : WOR ;;APT SWITCH REGISTER 
SUSWR: .WOR ;;USER SWITCHES 
000000 os 3;CPU TYPE, ag 
; BITS 15=11=CPU TYPE 
11/04=01,11/05=02, 11/20=03,11/40=04,11/45=05 
11/70=06, PDQ=07 ,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
> HIGH ADDRESS,M.S. BYTE 
77MEM. TYPE,BLKA1 
MEM.TYPE BYTE =-- (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3;HIGH ADDRESS, BLKA1 
MEM.LAST ADDR. BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 
3;HIGH ADDRESS,.M.S. BYTE 
2 3MEM. TYPE, BLKA2. 
3MEM.LAST ADDRESS .BLKA2 
iSHIGH seere ss M.S.BYTE 
2 3MEM.T YPE ,BLKA#3 
7MEM.LAST ADDRESS ,BLKA&3 
: 3H1GH ADDRESS .M.S.BYTE 
7MEM. TYPE /BLKAG 
+ IMEM. LAST ADDRESS,BLK&4 
3; INTERRUPT VECTORA1 -BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
fe oy ag OF EQUIPMENT UNDER TEST 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oe ae es ss oe es os Ss SS = os oS Ss a SS os a Ss os SS SS es Ss SS SS ss SS ss SS 
SSBLRALATLS SSVRARANASSELEALARLISSSVEG 
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-SBTTL ERROR POINTER TABLE 


2 *THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
eT NFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
‘ eLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
:*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 
;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: ::POINTS TO THE ERROR MESSAGE 
: :sPOINTS TO THE DATA HEADER 

: :sPOINTS TO THE DATA 

; ;:POINTS TO THE DATA FORMAT 


— es ss ew St 
BELESFRANS 


a ot Ss a 
Ss 


3333 


SERRTB: 
i GLOBAL DATA 
;ERR 1 


020322 023160 023566 EM1 ,DH2,DT2,DF 
024062 

ERR 2 
020322 023160 023566 EM1 ,DH2,DT2,DF 
024062 oo @ 


020341 023204 023576 EM2,DH3,D13,DF 
024062 ond 


020322 023160 023566 EM1 ,DH2 ,DT2,DF 
024062 a 


020341 023204 023576 EM2 ,DH3,D13,DF 
024062 _ 


020363 023141 023560 EM3,DH1,DT1,DF 
024062 ao 


020427 023246 023612 EM4 ,DH4 ,DT4,DF 
024062 = 


020452 023277 023622 EMS ,DH5 DTS ,DF 
024062 a 


020500 023277 0235634 EM6,DH5 .DT6,DF 
024062 
ERR 12 


020526 023277 023646 EM7 ,DH5 ,DT7,DF 
024062 


3 


13 
020554 023277 023660 EM8 ,DH5 ,DT8, DF 
024062 


: 14 
020605 023277 025660 EM9 DHS ,DT8, DF 
024062 
;ERR 15 
020635 023334 023672 EM10,DH6,DT9,DF 
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1 ERROR POINTER TABLE SEQ 0027 


001416 024062 
ERR 


001420 020662 023401 023710 EM11,DH7,DT10,DF1 
001426 024070 _ 


001430 020662 023401 023710 EM11,DH7,DT10,DF1 
001436 024070 _ 


001440 020700 023401 023710 EM13,DH7,DT10,DF1 
001446 024070 


001450 020731 023401 023710 EM14,DH7,DT10,DF1 
001456 024070 


001460 029762 023470 023732 EM15,DH8,DT11,DF2 
001466 024100 


001470 021013 023470 023732 EM16,DH8,DT11,DF2 
001476 024100 


001500 021044 023401 023754 EM17,DH7,DT12,DF i 
001506 024070 


001510 021076 023401 023754 EM18,DH7,DT12,DF 1 
001516 024070 


001520 021130 023401 023754 EM19,DH7,DT12,DF1 
001526 024070 


001530 021161 023401 023754 EM20,DH7,DT12,DF1 
001536 024070 


001540 021212 023470 023776 EM21,DH8,DT13,DF2 
001546 024100 


001550 021243 023470 023776 ° EM22,DHB,DT13,DF2 
001556 024100 


001560 021274 023141 023560 EM23,DH1,DT1,DF 
001566 024062 


001570 021305 023246 023612 ° EM24.DH4.DT4.DF 
001576 024062 


001600 021322 023141 023560 ° EM25 .DH1.DT1 DF 
001606 024062 


001610 021337 023141 023560 EM26,DH1,DT1,DF 
001616 024062 


001620 021354 023141 023560 ° EM27,DH1,DT1.DF 
001626 024062 
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1297 
iss 
1300 


sassy 


SESRER 


WWWWWNWWWNIWNWWNWNWW 
ad ad cad aad ce cd aed an ced eed 


MmMnNM 


WW 
AUSWN—OOONAUSWN oO 


1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BERRRNEE 


BRR RRR RRR 
SCUBNAUSRWRH Oo 


001630 
001636 
001640 
001646 


001650 
001656 


001660 
001666 


001670 
001676 


001700 
001706 


001710 
001716 


001720 
001726 


001730 
001736 


001740 
001746 


001750 
001756 


001760 
001766 


001770 
001776 


002000 
002006 


002010 
002016 


002020 
002026 


002030 
002036 


002040 
002046 


021371 
024062 


021410 
024062 


021430 
024062 


021441 
024062 


021452 
024062 


021515 
024062 


021556 
024062 


021430 
024062 


021430 
024062 


021430 
024062 


021430 
024062 


021615 
024062 
021662 
024100 


021731 
024062 


021755 
024062 
021430 
024062 
022023 
024062 


021430 
024062 


MACY11_ 27(654) 
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023141 


023141 


023334 


023334 


023141 


023141 


023141 


023334 


023334 


023334 


023334 


023334 


023470 


023334 


023334 


023334 


023334 


023334 


023560 


023560 


024020 


024020 


023560 


023560 


023560 


024020 


024020 


024020 


024020 


023672 


023732 


023672 


023672 


024020 


023672 


024020 


C 
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ERR 


ZERR 


sERR 


zERR 


sERR 


sERR 


sERR 


sERR 


zERR 


sERR 


ZERR 


sERR 


zERR 


ZERR 


ZsERR 


ERR 


sERR 


ZERR 


37 


40 


ay 


42 


43 


44 


45 


46 


47 


50 


51 


EM28,DH1,DT1,DF 


EM29,DH1,DT1,DF 


EM30,DH6,D114,DF 


EM31,DH6,D114,DF 


EM32,DH1,DT1,DF 


EM33,DH1,DT1,DF 


EM34,DH1,DT1,DF 


EM30 ,.DH6,DT14,DF 


EM30,DH6,DT14,DF 


EM30,DH6,D114,DF 


EM30,DH6,DT14,DF 


2 
EM35 ,.DH6,DT9, DF 


3 
EM36,DH8,DT11,DF2 


4 
EM37,DH6,DT9, DF 


5 
EM38 ,DH6,DT9, DF 


6 
EM30,DH6,D114,DF 


7 
EM39,DH6,DT9, DF 


0 
EM30,DH6,DT14,DF 


3 


SEQ 0028 
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CVKDAA.M11 ERROR POINTER TABLE SEQ 0029 


sERR 61 
002050 022053 023334 023672 EM40 ,DH6,DT9, DF 
002056 024062 _ 


62 
002060 022116 023334 023672 EM41,DH6,DT9,DF 
002066 024062 cnn 


3 
002070 022152 023334 023672 EM42 ,DH6,DT9,DF 
002076 024062 _ 


4 
002100 022173 023401 023710 EM43,DH7,DT10,DF1 
002106 024070 _ 


5 
002110 022173 023401 023710 EM43,DH7,DT10,DF 1 
002116 024070 oe 


6 
002120 022225 023401 023710 EM45,DH7,DT10,DF1 
002126 024070 _ 


7 
002130 022263 023401 023710 EM46,DH7,DT10,DF1 
002136 024070 on 


0 
002140 022321 023401 023754 EM47,DH7,DT12,DF 1 
002146 024070 — 


1 
002150 022360 023401 023754 EM48,DH7,DT12,DF 1 
002156 024070 =. 


2 
002160 022417 023401 023754 EM49,DH7,DT12,DF 1 
002166 024070 aan 


3 
002170 022455 023401 023754 EM50,DH7,DT12,DF1 
002176 024070 _ 


4, 
002200 022513 023334 023672 EM51,DH6,DT9,DF 
002206 024062 


; 5 
002210 022537 023334 024020 EM52,DH6,DT14,DF 
002216 024062 


: 6 
002220 022563 023277 024036 EMS3,DH5,DT15 DF 
002226 024062 


;ERR 77 
002230 022563 023277 024050 EM53,DH5,DT16,DF 
002236 024062 


SERSSEREES 


RISERS Reet 
BBVAARANISS 


SEES SRees 


RANTS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWWWw 


‘Oo 
) 
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CVKDAA.M11 ERROR POINTER TABLE SEQ 0030 
; ERRORS FOR COPY UTILITY 
zsERR 100 
020700 023334 024020 EM13,DH6,DT14,DF 
024062 
sERR 101 


021044 023334 024020 EM17,DH6,D114,DF 
024062 102 


022632 023334 024020 EM54 ,DH6,DT14,DF 
024062 


103 
021130 023334 024020 EM19,DH6,DT14,DF 
024062 


SECTOR/TRACK TABLE FULL ERRORS 
104 
EM55.,0.0,0 
05 
EM56,0.0,0 
ERRORS 
106 
022741 023401 023710 EM57,DH7,DT10,DF1 


024070 
107 


022762 023470 023732 ° EMS8,DH8,DT11,DF2 
024100 


; 110 
023003 000000 000000 EM59,0,0,0 
000000 


111 
023041 023401 023754 EM60,DH7,DT12,DF 1 
024070 


112 
023062 023470 023776 EM61,DH8,DT13,DF2 


024100 » +18 
023103 000000 000000 EM62,0,0,0 
000000 
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CVKDAA.M11 ERROR POINTER TABLE SEQ 0031 


bf RRR RRR ERE RRR REE EERE REE REE KERR EKER EERE EH 


‘REGISTERS & BUFFERS FCR DXO TESTS 


FRR RRR ERE EERE REE EKER EERE EERE KEKE EERE EE KEKE 


:DX0 PATT TEST DONE FLAG 
:DXO RANDOM SEEK COUNTER 

:DXO0 RCSR ERR COUNTER 

:DXO TRACK 

:DX0 SECTOR 

:DXO0 DATA COMPARE ERROR FLAG 
:DX0 TOTAL DATA COMP ERROR CT 


oo 


lelelelelelelelea) 


-BLKW 100 F 
-BLKW 10. ;DxXO BAD TRK/SEC TABLE 


SL RRR ERE RK EEK EEE EEE EEE EEE K EKER EEE EEE EKKEKKEEKEKEKEK 


SREGISTERS & BUFFERS FOR DX1 TESTS 


FE RARER KER EEK EKER EEE EEE KEKE EKKEKEKEKKEKEKK 


PATT TEST DONE FLAG 
RANDOM SEEK COUNTER 
RCSR ERR COUNTER 
TRACK 
SECTOR 
DATA COMPARE ERROR FLAG 
TOTAL DATA COMPARE ERROR CT 
1 EXPECTED DATA 
RECEIVED DATA 
;DX1 CRC ERROR FLAG 
-BLKW 100 ; DATA BUFFER 
-BLKW 10. ; BAD TRK/SEC TABLE 


0 DATA PATT TEST 

RANDOM SEEK TEST 
INITIALIZE TEST 
RESTORE TEST 
WRITE DELETED DATA TEST 
INVALID ADDRESS TEST 


2 
* 003122 2 ; COMMON AS | FOR DXO & DX1 FOR TRK/SEC FINISHED 
003124 : sMAX TRACK 
70 FOR 1°ST "PASS. 114 FOR SUBSEQUENT PASSES. SET AT START. 
:# OF RANDOM SEEKS TO BE PERFORMED. 
O FOR 1°ST PASS, 500 FOR SUBSEQUENT PASSES. SET AT EOP. 
Q = NORM TEST 1 = COPY UTILITY ACTIVE 
COMPAT TESTS, ~_ 


oo 


0 
0 
0 
: 0 
: 0 
0 
0 
0 


x 
1 
1 
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CVKDAA.M11 PROGR SEQ 0032 


-SBTTL PROGRAM 
003132 START1: an ;COMPAT PASS 1 


003134 START2: ;COMPAT PASS 2 
003132 C 


STARTS: ; :COPY UTILITY 


NORMAL TESTING 


3 


: #STACK, SP sSETUP STACK POINTER 
175722 #100, a$TKS ;DISABLE ANY TTY INTERRUPTS 
:TO RT-11 MONITOR 
HPRS ;DISABLE INTERRUPTS 
106427 


PR4 
004440 42,HLD42 4s 
000001 a 


‘BR iF YES 
ae sELSE CLR SO WE CAN USE SOF TSWR 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (S$CMTAG) AREA 
001100 MOV aSCATAG, R6 3zFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 7zCLEAR MEMORY LOCATION 
001140 CMP #SWR.R6 ; ;DONE? 
-6 ;LOOP 


BNE BACK IF NO 
001100 MOV _— STACK, SP SISETUP THE STACK POINTER 
sINITIALIZE A FEW VECTORS 
025502 000030 WSERROR QWEMTVEC ; EMT VECTOR FOR ERROR ROUTINE 
: 000340 MOV #340 @AENTVEC 2 ::LEVE 
MOV §- #STRAP,a#TRAPVEC’ :; TRAP VECTOR FOR TRAP CALLS 
012737 000340 000036 MOV #340, @#TRAPVEC+2;LEVEL 7 
::S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ''=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV § @#ERRVEC,-(SP) ;; 


#64, AAERRVEC 
E SWICH REGISTER 


ADSWR ,SWR : 
#DDISP,DISPLAY ; ; ¢AND A HARDWARE DISPLAY REGISTER 
177777 #~1,aSWR TRY TO REFERENCE HARDWARE SwWR 
66$ ‘BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 SAND THE HARDWARE SWR IS NOT = ~1 
65$ BRANCH IF NO TIMEOUT 
003366 : MOV #65$, (SP) ::SET UP FOR TRAP RETURN 


000176 : #SWREG, SWR i:POINT TO SOFTWARE SWR 


NN 2 3 eS 


MN 
ONAUSWN =| OVDOONAUSWN—O 


DAA AA AGIA AAT ATI AI A I OT UI TTT UT UT TT 
SVE 


SBIKAKUNY SSS 


1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


FFFFFR 
Answhrys-o 


yv 
r 
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DAA.M11 INITIALIZE THE COMMON TAGS SEQ 0033 


012737 000174 001142 #DISPREG, DISPLAY 
012637 000004 66$: (SP)+,aMERRVEC ;;RESTORE ERROR VECTOR 


001176 $PASS :CLEAR PASS COUNT 
000200 001211 MAPTSIZE,SENVM TEST USER SIZE UNDER APT 
3 EQ 7$ YES,USE NON-APT SWITCH 
012737 001212 001140 67$ MOV #SSWREG , SWR 7INO,USE APT SWITCH REGISTER 
-SBTTL _TYPE PROGRAM NAME 
33s TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005227 177777 INC #~1 3eFIRST we 
001042 BNE 685 44 ae 
104401 003504 TYPE -69$ YPE ASCIZ NSTRING 
.SBTTL GET VALUE FOR SOFTWARE suiTcy REGISTER 
000042 TST ree ;sARE WE ae UNDER XXDP/ACT? 
001210 000001 : la + ARE WE 7 as UNDER APT? 


YES 
001140 000176 SWR ,ASWREG : ; 3 SOF TWARE SWITCH REG SELECTED? 
71$ ; sBRANCH IF NO 
BR 71$ T:GET SOFT-SWR SETTINGS 
112737 000001 001134 : #1,$AUTOB 32SET AUTO-MODE INDICATOR 


000417 BR 68$ T OVER THE ASCIZ 
<CRLF >*PDT- 11/150" oYSTEM EXERCISER*<CRLF> 


003130 sCOPY UTILITY? 
LOOP IF YES 


003132 :COMPAT PASS 1? 
;BR IF YES 

003134 :COMPAT PASS 2? 
;BR IF YES 


012737 000000 003124 #0 ,MAXTRK ;TRK 0 ONLY FOR 1°ST PASS (PATCH=ABLE) 
012737 000012 003126 #10. .MAXSK ;10 RANDOM SEEKS FOR 1°ST PASS 


005037 026052 TERR TOTAL ERR CT 
005037 026054 TSERR : TOTAL SOFT ERR CT FOR EOP TYPEOUT 


052737 000006 M<RTS!DTR>,AMRC * 
042737 000006 #<RTS!DTR>,AMRC ;DTR MUST BE TOGGLED. 





PDT=11 tear 
AA.M11 


063712 
003716 
003720 
003726 
003730 
003732 


003740 


052737 


004737 
005037 


012737 
000137 


005737 
001402 
000137 


MACY11 27(654) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


177777 
001210 


010256 
001210 


001000 
000400 
017215 


001100 
011430 


000100 


000006 


011420 


026056 
026060 


011526 
003132 
003134 


000114 
006300 


003170 
016220 


000001 


000001 
001246 
001246 


177546 


003124 


20-SEP-78 


1$: 


2s: 


I 
10:40 PAGE 34 


#~1 
4$ 
SENV 41 
4$ 


PC,SIZE 
SENV 41 


LOOP 
adam 
#400,$DEVM 
LOOP 

2 WARNING 


#1100,SP 
PC, TIMER) 


31°ST TIME? 


BR_IF NO 
1? 


‘BR IF YES 
SHOW CURRENT DEVM & GET NEW 


SEE WHO IS ON THE SYSTEM 
ARE WE RUNNING UNDER APT? 


;BR_IF YES & DONT HALT 
DX0 ey ' 


BR IF YES 

3;DX1_ THERE? 

BR IF NO 

: INSERT SCRATCH DISKS 


;LOOP HERE AFTER EOP & RESET STACK 
: TIMER TO ALLOW *P* TO PRINT BEFORE RESET 


:CLEAR ALL INTERRUPT ENABLES 


MIE,CLK 

#PRO 

106427 

PRO 
A#<RTS!DTR>,AMRC 


PC, TIMER] 


PERR 
PSERR 


PC, CLRBAD 


#114 ,MAXTRK 
DXTST1 


COPFLG 
MEMTST 
COPY 


RESET SETS CLK IE. DONT ALLOW YET 
ALLOW INTERRUPTS 


:TO CONDITION ALL TERMINALS & 


; COMM +3 TO OPERATE IN EXT LOOPBACK MODE. 
NO HARM LOOPBACK NOT USED. 
TIMER TO ALLOW PREV XFERS TO FINISH 


;PASS ERR COUNT FOR EOP TYPEOUT 
PASS SOFT ERR COUNT FOR EOP TYPEOUT 


:CLEAR BAD SECTOR/TRACK TABLES 


;COMPAT PASS 1? 
BR IF YES 
;COMPAT PASS 2? 


BR IF YES 
ELSE TEST FOR COPY 


COMPATABILITY TESTING 


COPY UTILITY? 
F NO...NORMAL TESTING 


ZBR | 
ELSE GO COPY 
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CVKDAA.M11 PROGRAM SEQ 0035 


.SBTTL PROGRAM 


IRAE IRIE IOIIEIOIIIUIEIIISIOIIUIIUIIUIIUI IO IOIIOIIIIISIDIIIOIIIIIIIOIOI IE 

: MEMORY TESTS 

[MEMORY FROM 0 TO THE LAST LOC OF PROGRAM (LSTAD) IS TESTED FOR TIMEOUT. 
;MEMORY FROM ‘"LSTAD' TO THE BOTTOM OF THE RT11 MONITOR/ABS LOADER 

:I1S TESTED BY A PASS OF A 1010 PATT FOLLOWED BY A PASS OF 0101 PATTERN. 
;1F THE SYSTEM HAS A 28K MEMORY, 28K TO 30K WILL BE TESTED SIMILARLY. 


ETI Titi titi iit itt i litt iivititiiiitiiisitiiiiitititititity) 
004737 010744 MEMTST: JSR PC,EXAMKB 


012737 012004 000004 MINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
012737 000200 000006 #200, ERRVEC+2 


013703 010630 MAXMEM ,R3 
162703 000300 \ #300,R3 TEST ONLY AS FAR AS ABS LOADER IF NOT RT-11 


ADDR POINTER 
; TEST LOCS 0 THRU END OF PGM. 


012012 


) 
012012 . ; TIMEQUT? 


004436 :FOR ERR TYP 
1 ; TIMEOUT ON READ 
BUMP ADDR 


000002 : H#2,R4 ; 
026616 . zAT END? 


BR IF NO 


004430 MEMCT 

125252 #125252 ,PAT ;DATA PATT FOR 1°ST PASS 

026616 8$: MLSTAD ,R4 sADDR POINTER. R/W LOCS LSTAD THRU 
;BOT OF RT11 OR BOT OF ABS LOADER 

012012 : INTFLG 


004434 PAT, (R4) WRITE 

012012 INTFLG : TIMEOUT? 
4$ BR IF NO 

004436  esommee :FOR ERR TYP 


: TIMEOUT ON WRITE 
004432 : (R4) ,MEMHLD READ 
004432 MEMHLD ,PAT C OMPARE 


6$ 
0044 36 R4,ADDR ;FOR ERR TYP 
3 COMPARE ERROR 


000002 6$: AD #2 ,R4 ;BUMP POINTER 
004440 001000 HLD42,41000 :RT11_IF LOC 42 = 1000 
7$ ;BR IF RT11 
R4,R3 ELSE AT BOT OF ABS LOADER? 
3$ BR IN NO 
5$ sELSE EXIT 
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CVKDAA.M11 ROGRAM SEQ 0036 


000054 7$: R454 ;LOC 54 CONTAINS LOW ADDR OF RT11 MONITOR 
3$ BR IN NOT THERE 

004430 5$: te 

004430 MEMCT 

052525 004434 #052525 ,PAT ;DATA PATT FOR 2°ND PASS 
8$ TREPEAT 


023727 010630 157776 : MAXMEM,#157776 ;DO WE HAVE 28k? 
001047 15$ :BR IF NO & EXIT 


012737 125252 004434 #125252,PAT DATA PATT FOR 1°ST PASS OF HI MEM 
160000 : Ae ng a R4 ;ADDR PTR TO TOP OF 28k 
set 


004 ; WRITE 
012012 


} 
004436 : :FOR ERR TYP 


004432 : (R4) ,MEMHLD 

004432 eo 

0044 36 R4,ADDR :FOR ERR TYP 
5 ; COMPARE ERROR 


000002 : #2,R4 
167776 R4 4167776 zAT END OF 30K? 
11$ :BR IF NO 


SESe 


SIIAVIISIISS 
ah aed a aed a etd eth ed et ed 
WONAUSWN—O 


NUS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NN NN 


NM 
Wr 


004430 MEMCT 
004430 MEMCT ,43 


: 
052525 004434 #052525 ,PAT DATA PATT FOR 2"ND HALF OF HI MEM 
10$ PEAT 


— 
“N 
Nm 
* 


012737 000006 000004 : MERRVEC +2 ,ERRVEC RESTORE TIMEOUT VECTOR 
005037 000006 ERRVEC +2 


032777 010000 174524 sito -@SWR SKIP TYPEOUT IF NOT SET 
LK 
017607 -MEMORY 
017622 “DUN 
CLKTST 


ee eed a ed ad = 
NNN NN ANS 
WWW ronson 
AVAAYIIHD 


dais 


8 


MEM FROM LSTAD TO ee nee LOADER W/ 125252 PATT 


—. WITH g52325 8 
MEM FROM 28k T 0° 30k ‘ui TH 125252 PAT 
tT WITH 052525 PATT 


MEMORY READ HERE 

“PATI TO BE WRITTEN & READ 
ADDR UNDER TEST 

SAVE LOC 42 


a 


MEWN OO 
pW IsS 


“annhnnun 


NNNNRY 


eo oo a SS 
N 


N 
* 
N 
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CVKDAA.M11 


032737 


052737 


004537 
012012 


000100 
104032 
000410 


032777 
001404 


MACY11 27(654) 


000200 
012004 
000200 
012012 
000100 


011160 


010000 


017110 
017534 


001246 
000100 
000102 
177546 


174416 


L 
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SP RRA AAR AAR AREA AA AARAREREERREREREERKARERRREAEREKREEEERRAREEEEE EK 
: START LINE CLOCK 
fF AAA AREA AE RARER AAA AAEEAAERAEAAEARAERAARAAERAAERERARERERRERERR REE ES 
CLKTST: BIT  ABIT7.S$DEVM —; DROP._ TEST? 
BNE — PRTST :BR_IF YES 
#INTSRV,CLKVEC SETUP VECTOR AREA 
#200.CLKVEC+2 [LOCKOUT OTHER INTER. 


MIE,CLK SET CLOCK LOOSE! 

R5, TIMER ;SEE IF INTFLG GOES TO 100 
32 ;CLK NOT RESPONDING 

PRTST 

#B1T12,aSWR ;SKIP TYPEOUT IF NOT SET 


PRTST 
,CLOCK 


SEQ 0037 





CVK 


AA.M11 


SSZBIIIRBIIISSeISSAIAS 


g 


1803 


PDT=11 EXERCISER 
VKD PR 


032737 


012737 


005037 
012737 


052737 


MACY11 27(654) 


100000 
010610 


000006 
000006 
177514 
012146 


012146 


012142 
000015 
000100 


011160 


012146 
000100 
010000 


017050 
012146 


017061 
017534 


001246 


177420 
000200 
000202 


012140 
177514 


177514 
174232 


20-SEP-78 


M 
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MARAE RARALALARALALALSRASESAAS SLES R LASER ASS SSA SARE ESSERE SRSA SSS SS 


START PRINTER 


PRTST: 


1$: 


3$: 


4%: 


BIT 
BN 


#B1T15,$DEVM 
SMTST 

PRPRE S 

1$ 


#<RTS!DTR>,AMRC 
#<RTS!DTR>,AMRC ; 
PRS 


SMTST 
PRPORT 
2s 


PRPORT 
#<PRT !B9600! CHAR8>, 


#PRSRV ,PRVEC 
#200, PRVEC +2 


LINCT 
#CR,PRCHR 


#1E,PRS 
R5,TIMER 
33 

SMTST 
PRPORT 
3$ 
#IE,PRS 
#B1T12,aSWR 
SMTST 
-PRINT 
PRPORT 
4$ 

-PORT 
SMTST 


MAAR RRAASAAAASZLALALALALAALALASALASASESA SEER RRS ASRS RSE ESSA SSS SS 


;DROP TEST? 
;BR IF YES 
:PRINTER THERE? 
;BR IF YES 


MUST BE TOGGLED 
rae ext FORCE DTR IF LOOPBACK CONN INSTALLED 


sEXIT IF DTR HAS NO EFFECT...NO LOOPBACK CONN. 
ZELSE SET FLAG TO DO JUST 5 LINES 


PARAM ; SETUP BAUD RATE & CHAR LENGTH 
sELSE SETUP PRINTER VECTOR 
[LOCKOUT INTERR 


CLEAR LINE CTR 

CHAR TO BE PRINTED 

;"DEL* (177) CAN BE USED TO CLR PRINTER BUFF 
[SET PRINTER LOOSE! 

WILL PRINT CONTINUOUS 132 COLUMN LINES 

EA BEGINNING WITH ASCII 40 THRU 176 

SEE IF LINCT GOES TO 5 


PRINTER NOT RESPONDING 


3:5 LINES ONLY? 

BR IF NO 

ELSE SHUT DOWN PRINTER 
:SKIP TYPEOUT IF NOT SET 


35 LINES ONLY? 
3;BR IF NO 


SEQ 0038 





PDT=11 EXERCISER 
CVKDAA.M11 


MACY11 27(654) 
AM 


032737 


052737 
032737 


052737 


052737 
012737 


013737 
023727 
001402 
104006 
000424 


004537 
060340 
012640 
012550 


002000 
005222 
005220 
012636 
000400 
004000 
000010 
014000 
007026 
000026 
000020 
000026 
011442 


176622 
012546 


011134 


012546 
000026 


N 
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MmARARRRARAAARAAALARALSARRAARAR ESLER ERE L ERE EEE RRR EERE RRR RRR REEDS SD 


; START SYNC COMM PORT 


SPEAR ARAAAAAAAAARAAAAEEAAREARAAARARAREEARERAEREEEERAEEAREREREAEe 


SMTST: #B1T10,$DEVM ;DROP TEST? 
20$ BR IF NO 
AMTST ELSE JUMP TEST 


208: FREE 

8$: LSTCHR ;LAST CHAR FLAG FOR XMIT 
#MR , SMXC MASTER RESET 
AMCLK, SMXC SMAINT CLOCK 


+ hla eat EXT LOOPBACK? 


BR IF YES 
A<MM'MCLK>,SMXC [ELSE SET MAINT MODE FOR INT. LOOPBACK 
#<CHRB8 ' ODDPAR ! 026>, SMPAR ;SETUP SYNC PARAMETER REGISTER 
#<RTS'DTR! SRSYN>, SMRC ;SET REQ TO SEND, DATA TERM RDY 
7® SEARCH SYNC 
MSEND , SMXC ;ENABLE XMIT SEND 
26, SMXB :XMIT SYNC CHAR 


RS, TIMER2 ;WAIT FOR DONE 


45 NO DONE 
5$ EXIT 


SMRB , COMHL D sREAD WORD 

COMHL D ,#026 Z1S IT SYNC CHAR? 

4$ BR IF YES 

6 :DID NOT REC SYNC CHAR 
5$ TEXIT 


Bs acon ;SETUP VECTOR AREA 


SEQ 0039 
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CVKDAA.M11 PROGRAM 


012737 012544 MOV #027, CCMCHR 31°ST CHAR TO BE XMITTED 
052737 176620 BIS #1E,SMRC SET SYNC MODEM LOOSE! 


052737 176624 BIS WIE. SMXC 
JSR RS, TIMER :SEE IF COMCHR GOES TO ALL 1°S (DONE) 
COMCHR 
177777 
BR 


6$ 


176624 $ HMR , SMXC MASTER RESET 
010000 173754 ABIT12,aSWR :DO TYPEOUT IF SET 
AMTST EXIT IF NOT 
017021 


017622 
sEXIT 


005220 : n ;ALLOW 1 FREE ERROR FOR APT BREAK IN 
:SYNC COMM NOT RESPONDING 


005220 


ERROR COUNTER 
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CVKDAA.M11 PROGRAM 


FAO IIR IORI IO IOI IORI II III IODA A IAA IIAISI SAI SSS SSSSSISSS SSAA I. 
; START ASYNC COMM PORT 

FRO I I ROIIORIOIIOI IOI IOI IOI IORI IIT IO IAI AISI SSISSISSASIASASASASSSSSS SASSI SASS. 
032737 004000 001246 AMTST: BIT #B1T11,$DEVM ;DROP TEST? 

001054 BN CLITST [BR IF YES 


032737 000010 001246 #B1T3,$DEVM EXT LOOPBACK? 
001404 1$ ;BR IF YES 
HELE HA 037036 177420 #<AMOD !B9600! OPAR ! CHAR8 !MAINT>, PARAM zsELSE SET FOR INT LOOPBACK 


012737 037034 177420 : MOV #<AMOD !B9600!0PAR!CHAR8>,PARAM ;WAKE UP AMOD IF JUST DID SMOD 
052737 000006 176610 : #<RTS!DTR>,AMRC ;SET REQ TO SEND & DATA TERM RDY 


004537 011134 R5,SETVEC SETUP VECTOR AREA 
000330 VEC 
012466 
012450 
012544 COMCHR CHAR TO BE XMITTED 
176612 012546 :CLR OUT ANY PREVIOUS STORED WORD 


000100 176610 AMIE ,AMRC SET ASYNC MODEM LOOSE! 
052737 000100 176614 


004537 011160 JSR R5,TIMER 3SEE IF COMCHR GOES TO 377 
012544 R 
000377 


104040 40 zsASYNC COMM NOT RESPONDING 
000410 BR CLITST 


032777 010000 173570 myth -@SWR SKIP TYPEOUT IF NOT SET 
L 
017034 -ACOM 
104401 017534 ;RUN 





D 
PDT=11 EXERCISER MACY11 27(654) 20-SEP-78 10:40 PAGE 42 
CVKDAA.M11 PROGRAM 


SEEKER KEE KERR KEKEKKEEEEREKKKEREEEEKKEEREREEEKEK 


: START CLUSTER TERMINAL #1 


EKER REECE REE EEKEKKKRKEKEKEKKEKEKEKEEEEKEKEKKEEKEKKKEEREKEKEEEEK 


010606 CL1TST: TST CLPRES OPTION PRESENT? 
BNE 1$ 7BR IF YES 
006036 DXTSTO 
032737 004000 001246 1$: #4000,$DEVM DROP ASYNC? 
001406 4$ ; 


:BR_IF NO 
042737 000006 176610 A<RTS!DTR>,AMRC ;MUST BE TOGGLED 
052737 000006 176610 M<RTS!DTR>,AMRC ;PRIME IT 


032737 010000 001246 2 #B1T12,$DEVM DROP TEST? 
001051 CL2TST ;BR IF YES 


ihe 000001 001246 > aan ey _ FOR EXT LOOPBACK? 

greta 005016 177420 cer ee nr sELSE SET FOR INT LOOPBACK 
012737 005014 177420 : #<CT1!B2400! CHAR8>,PARAM SETUP FOR EXT LOOPBACK 
004537 011134 : R5,SETVEC SETUP INTERR VECTORS 

000300 TK1VEC 


012166 TK1SRV 
012150 TP1SRV 


005037 012244 T1CHR :CHAR TO BE XMITTED 
176502 012246 TK1B,T1HLD READ CHAR (CLEAR STALE DATA) 
000100 176500 MIE, TK1S SET CLUSTER TERM #1 LOOSE! 
000100 176504 MIE,TP1S 


011160 JS R5,TIMER SEE IF TICHR GOES TO 377 
34 

CL2TST 

010000 173400 7p aes :SKIP TYPEOUT IF NOT SET 
L 


1 016766 -CLT1 
104401 017534 RUN 


;CLUSTER TERM 1 NOT RESPONDING 
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“o PPPASERSSASASALLASESEAE SALE SESE RSS SER SESS ESSA SERA ARRAS ESS SDS SS 


: START CLUSTER TERMINAL #2 


ZAR ISOS IOIIIDIOIIIOIOISIOIOIOIOI TOIT TOT TOT TOT TT TT TT TT TT OTT TTS TO TT TE 
032737 020000 001246 CL2TST: BIT #B1T13,$DEVM DROP TEST? 
001051 BNE CL3TST ;BR IF YES 


032737 000002 001246 #BIT1,$DEVM TERM #2 SET FOR EXT LOOPBACK? 

001404 1$ ;BR IF YES 

Ar 34 055016 177420 #<C(T2!B2400!CHARB!MAINT>,PARAM ;ELSE SET FOR INT LOOPBACK 
012737 055014 177420 : #<CT2!B2400! CHAR8>,PARAM SETUP FOR EXT LOOPBACK 


004537 011134 : R5,SETVEC SETUP INTERR VECTORS 
000310 TK2VEC ' 
012266 TK2SRV 
012250 TP2SRV 

012344 T2CHR CHAR TO BE XMITTED 
012346 TK2B, T2HLD READ CHAR (CLEAR STALE DATA) 
176510 AMIE, TK2S SET CLUSTER TERM #2 LOOSE! 
052737 176514 #IE,TP2S 


004537 011160 J R5,TIMER SEE IF T2CHR GOES TO 377 
012344 

000377 

104035 35 CLUSTER TERM 2 NOT RESPONDING 
000410 CL3TST 


032777 010000 173246 #B1T12,aSWR ;SKIP TYPEOUT IF NOT SET 
001404 CL3TST 

016777 ! -CLT2 

017534 »RUN 
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FIO IIOI OI IOISIOI OIE III IOI OORT TT TTDI DAIS IAISAISAIAI SSS SAS SSSA 
: START CLUSTER TERMINAL #3 

FIR IOI RII IOI IOIOIIOI III IOI IIIT IIIA IA IA ISISAISISSISISSISSSIAISSIS SAAN 
032737 001246 CL3TST: BIT #B1T14,$DEVM ;DROP TEST? 

001051 BNE DXTSTO ;BR IF YES 


onecae 001246 > ha . SDEVM ‘On IF ge FOR EXT LOOPBACK? 
177420 a #<CT3!B2400! CHARB!MAINT>, PARAM ;ELSE SET FOR INT LOOPBACK 
177420 : #<CT3!B2400! CHAR8>, PARAM :SETUP FOR EXT LOOPBACK 
R5,SETVEC SETUP INTERR VECTORS 
TK3VEC 
TK3SRV 
TP3SRV 
T3CHR CHAR TO BE XMITTED 
012446 TK3B, T3HLD READ CHAR (CLEAR STALE DATA) 
176520 MIE,TK3S SET CLUSTER TERM #3 LOOSE! 
052737 000100 176524 #IE,TP3S 


011160 J R5, TIMER SEE IF T3CHR GOES TO 377 


004537 
012444 
000377 
104036 36 :CLUSTER TERM 3 NOT RESPONDING 


000410 DXTSTO 


032777 010000 173114 #B1T12,aSWR :SKIP TYPEOUT IF NOT SET 
001404 DXTSTO 

017010 -CLT3 

017534 ; RUN 
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MAAS ASARSAASAALALASLLALEAASASASALASALASEE ERAS SSE SASS ASA ASRS ESAS SS 


FILL & EMPTY BUFFER TEST 


“A FILL BUFFER COMMAND IS ISSUED WITH ALTERNATING ,WORDS OF ALL O'S & ALL 7°S. 
;AN EMPTY BUFFER COMMAND IS ISSUED TO FILL ‘DOBUF‘ 

[UPON COMPLETION, DOBUF IS CHECKED FOR ALTERNATING WORDS OF ALL 0°S & ALL 1'S. 
— IN THIS TEST MAY INDICATE CABLE CROSS-TALK INTERFERENCE. 


FRR RI IR CII OI TOR IR IA ISAS IAS AINSNIASSISSIS ASSIS ISSA SAIS 
005037 003120 DXTSTO: CLR DXTST 30 = DxTSTO 

032737 000400 001246 #BIT8,$DEVM ;DROP DXO TESTS? 

001404 7 


BR IF NO 
032737 001000 001246 #B1T9,$DEVM DROP DX1 TESTS? 
001107 DXTST1 BR IF YES 


004537 011442 : R5,TIMER2 :WAIT FOR DISK DONE 
177170 
000200 


104075 75 NO DONE 
000474 BR 8$ sEXIT 


012737 000011 177170 MINITAL ,RXCS :DO AN INITIALIZE COMMAND 
011442 R5,TIMER2 WAIT FOR DONE 


E 
75 NO DONE 


8$ 
:FILL BUFFER 
000100 -+ ata WORD CT 


; WORD 
000001 177170 #FBUF ,RXCS ; ISSUE FILL BUFF COMMAND 
177172 : R1,RXDB 
R1 ; COMPLEMENT WORD 
RO :DONE ALL 100 WORDS? 
1$ ;BR IF NO 
011442 RS,TIMER2 ;WAIT FOR DISK DONE 


75 NO DONE 
8$ sEXIT 


sEMPTY BUFFER 
000100 #100,R0 WORD CT 

002424 #DOBUF ,R1 ;BUFFER ADDR 

0000C3 177170 MEBUF ,RXCS ; ISSUE EMPTY BUFF COMMAND 
177172 2$: MO ~ pant hes :STORE WORD 


; DONE? 
2$ ;BR IF NO 
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004537 
177170 
0002 


00 
104075 
000421 


012701 


012137 
023727 
00140° 
104077 
020127 

362 


000000 
177777 
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011442 


002424 


006272 


006272 
006272 


002624 


010114 


177777 


R5,TIMER2 


75 
8$ 


ADOBUF ,R1 
(R1)+,EBHLD 
4$ 

76 


(R1)+,EBHLD 
EBHLD ,#~1 
5$ 


77 

R1,#DOBUF +200 
3$ 

DXTST1 

EOP 


WAIT FOR DISK DONE 


3NO DONE 
sEXIT 


CHECK IT 

;BUFFER ADDR 

STORE IT 

;BR IF ZERO 

:WORD NOT ALL ZEROS 


sALL 1°S? 
;BR IF YES 
;WORD NOT ALL ONES 
sEND OF DOBUFF? 
;BR IF NO 
:GO TO NXT TST 
sEXIT ALL DISK TESTS 
FOR ERROR REPORT 


FOR ERROR REPORT 
FOR ERROR REPORT 





& 
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sm 


JL EAA ERREKEREEE RAKE KKKEKKEKEKKEKREREEKREKEREREERAREREEKREEEEE 


: START DXO & DX1 DATA PATTERN 


SEACH SECTOR IS FILLED WITH ITS TRACK & SECTOR ADDRESS AS DATA. 
7DX1 WILL ALWAYS HAVE ITS DATA BIT 15 SET TO DISTINGUISH IT FROM DXO. 
EACH TRACK IS READ & CHECKED BEFORE GOING TO THE NEXT TRACK. 
:DATA IS WRITTEN ON ALTERANTE SECTORS TO AVOID LATENCY TIMES. 
31E: SECTORS 1,3,5...51 FOLLOWED BY 2,4,6...32. 
ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 
“th ST PASS PERFORMED ON 1'ST 10 TRACKS. SUBSEQUENT PASSES ON ALL TRACKS 


IASI SISO TOC IOISISIOIOIOIOISIOISIIOIIUIOIIOIIOI IOI ITO TOT TOOT TOT TTT TT TT TT TIE 
012737 000001 003120 DXTST1: MOV #1,DXTST 31 = DATA PATT TESTS 


002400 Z INIT DXO FLAGS 
002404 

002414 

002406 DOTRK 

000001 002410 #1, DOSEC 


002650 DIPAT : INIT DX1 FLAGS 
002654 DIERR 
002664 DICERR 
005037 002656 D1TRK 
012737 000001 002660 #1,D1SEC 
032737 000400 001246 #B1T8,$DEVM ;DROP DxXO TESTS? 
001031 2$ :BR IF YES 


012737 012740 000264 ARXSRV ,RXVEC SETUP VECTOR AREA 
012737 000200 000266 #200 ,RXVEC +2 


003134 : ore ; DOING io PASS 2? 
013432 013040 aaa ELSE. DO READS ONLY 


SBVRARWN=SSRQ 


MNINNM NN NPN PY PoNnofrrgs 
td od ot 2 


012737 013056 013040 : #DOFBUF ,DODISP ;DO NORMAL TESTING 
005037 $: FIN DO DX1 WHEN SET 
052737 177170 MIE ,RXCS ;LET INTERRUPTS LOOSE! 


011244 PC,TIMDO 
41 ;DX0 NOT GETTING TRACK DONE FLAG 
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032737 001000 001246 2$: BIT ABIT9,LDEVM ;DROP DX1 TESTS? 
001031 4$ ;BR IF YES 


012737 012740 000264 ARXSRV ,RXVEC SETUP VECTOR AREA 
012737 000200 000266 #200 ,RXVEC +2 


003134 : + fa : DOING Pata PASS 2? 
015216 013046 ~ eerste ELSE. DO READ ONLY 


012737 014642 013046 #D1FBUF,DIDISP ;DO NORMAL TESTING 
005037 FIN :GO BACK TO DX0O WHEN SET 
052737 177170 M<IE!DX1>,RXCS ;LET INTERRUPTS LOOSE! 
011340 PC,TIMD1 
42 :DX1 NOT GETTING TRACK DONE FLAG 
000400 001246 : #B1T8,SDEVM ;DROP Dx0? 
BN 5$ BR IF YES 
002400 DOPAT ELSE IS DxXO ALL DONE? 
5$ BR IF YES 
011336 DOTMO ; TIMEOUT? 
1$ BR IF NO 
7$ ELSE CONT LAST COMMAND 
001000 001246 : #B1T9,$DEVM sDROP DX1? 
6$ :BR IF YES 
002650 D1IPAT sELSE IS DX1 ALL DONE? 
6$ 7BR IF YES 
011426 D1TMO : TIMEQUT? 
3$ BR IF NO 
8$ SELSE CONT LAST COMMAND 
003132 3 COMP1 ;DOING COMPAT PASS 1? 
ZBR NO 


IF 
010114 EOP ELSE ALL DONE 
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012737 


010137 


005237 
012737 
737 


00473 

010137 
004537 
000753 
012737 


005037 
052737 
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011616 


013432 
003122 
000100 


011244 


003120 


001246 


010736 


010736 


013040 


177170 
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WeRARAASAAAAAASAAAAALALESALALALALALALESELL SEER SARA SESSA ASR SESSA SS 


; START DXO & DX1 RANDOM SEEKS 

;RANDOM SEEKS ARE PERFORMED ON EACH DISK. 

;DATA IS READ & VERIFIED TO BE CORRECT FROM THE PREVIOUS TEST. 

HARD ERRORS ARE THOSE ead AFTER 10 MORE RET TALKS 

31"ST PASS PERFORMS 20 RANDOM SEEKS ON 1°ST 10 TRACK 

: SUBSEQUENT PASSES PERFORMS 500 RANDOM SEEKS BETWEEN. ALL TRACKS. 
IRIE II IIIS ISIE IOI IOIUISIOIIOI IOI IO TOR IAAI IAI ANS AISI SISSSSSAN: 


DXTST2: MOV #2,DXTST 32 = RANDOM SEEK TESTS 
; INIT DXO FLAGS 


INIT DX1 FLAGS 


#BIT8,SDEVM DROP DX0O TESTS? 

2s ;BR IF YES 

LOLIM 

MAXTRK ,HILIM 

PC ,RAND 

R1,DOTRK GET RANDOM TRACK # 
LOLIM 

#32,HILIM 

PC ,RAND 

R1,DOSEC :GET RANDOM SECTOR # 


R5 , CKOBAD ;SEE IF THIS TRK/SEC FLAGGED BAD 
1$ BR IF RETURN HERE 


AMDORSEC DODISP ;SET DISPATCH TABLE TO POINT TO 
:R HANDLER. 


FIN :D WHEN SET 
#IE,RXCS [LET INTERRUPTS LOOSE! 
PC, TIMDO 
41 


:DX0 NOT GETTING DONE FLAG 
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032737 001246 28: #B1T9,£DEVM DROP DX1 TESTS? 
001041 BN 4$ BR IF YES 


3$: LOLIM 
010736 MAXTRK ,HILIM 
PC,RAND 


010137 R1.D1TRK :GET RANDOM TRACK # 


005237 LOLIM 
012737 000032 010736 #32,HILIM 
004737 


PC ,RAND 
010137 R1,D1SEC GET RANDOM SECTOR # 


004537 011730 R5,CK1BAD ;SEE IF THIS TRK/SEC FLAGGED BAD 
000753 3$ BR IF RETURN HERE 


012737 015216 013046 A#DIRSEC ,DIDISP #SET DISPATCH TABLE TO POINT TO 
;READ SECTOR HANDLER 

005037 003122 FIN :GO BACK TO DXO WHEN SET 

052737 000120 177170 M<IE!DX1>,RXCS ;LET INTERRUPTS LOOSE! 


011340 PC,TIMD1 
42 ;DX1 NOT GETTING DONE FLAG 


032737 000400 001246 : > meaaiat ;DROP Dx0? 


001004 BR IF YES 
023737 002402 003126 DOCNT ,MAXSK :DID ALL SEEKS? 
001262 1$ :BR IF NO 


032737 001000 001246 : #B1T9,$DEVM DROP DX1? 

1 6$ ;BR IF YES 
002652 003126 D1CNT ,MAXSK :DID ALL SEEKS? 

3$ BR IF NO 


003134 : COMP2 ;DOING COMPAT PASS 2? 
BR IF NO 


DXTST3 
010114 EOP ELSE ALL DONE 
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032737 
001062 
012737 


012737 


005037 
052737 


012737 
012737 


005037 
052737 


004737 
104056 
000240 


000400 


000003 
002404 
002414 
014476 


003122 
000100 


011244 


177170 


000001 


002404 
002414 
000001 
000001 


013712 


003122 
000100 


011244 


001246 


003120 


013040 


177170 


177172 


002406 
002410 


013040 


177170 
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5 RAE ERA EREERERRA RRR 


; INITIALIZE COMMAND TEST 

$ THE INITIALIZE & EMPTY BUFFER COMMAND IS ISSUED TO DxO. 
DATA IS VERIFIED TO BE THAT OF TRACK 1, SECTOR 1. 

SHARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 

; SINIT! CANNOT BE ISSUED TO DX1. 


FERRARA EAE REE EE AREA EEREREEREEEREKEERREREEREREEERERERKEERKERR EH 


DXTST3: BIT woe BA $DEVM DROP DxO TESTS? 
BNE DXTST BR IF YES 


#3 ,DXTST 33 = INIT TEST 

DOERR 7FLAGS 

DOCERR 

#DOINIT,DODISP ;SET DISPATCH TABLE TO GO TO INIT HANDLER 


FIN 

M1E,RXCS LET LOOSE 
PC,TIMDO 
4 ;DX0 HUNG ON INITIALIZE COMMAND 
DXTST4 

; ERROR? 

BR IF NO 

: INIT COMMAND ERROR 

#1D,RXES : INIT DONE BIT SET? 

es 7BR IF YES 

55 : INIT DONE NOT SET 

DOERR 

DOCERR 

#1,DOTRK ;EXP TRK & SEC 

#1,DOSEC 


#DOEBUF ,DODISP ;SETUP DISPATCH TABLE TO 
EMPTY BUFFER & VERIFY DATA 


FIN 
MIE ,RXCS LET LOOSE 


PC, TIMDO 
56 ;Dx0 HUNG ON EMPTY BUFF COMMAND 


SEQ 0051 
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METI 
RESTORE COMMAND TEST 

“THIS TEST VERIFIES THAT THE RESTORE COMMAND CAN BE ISSUED 

;TO DxO & DX1 & THAT NO ERRORS RESULT FROM IT 


MPTTITITIIITITITITI IIIT TTT TTL LTTE LLL LLL 


032737 000600 001246 DXIST4: BIT #B1T8,$DEVM :DROP DxO TESTS? 
001121 BNE DXTSTS ‘BR IF YES 


012737 000004 003120 = RESTORE TEST 
014522 013040 mone st DODISP ‘SETUP DISPATCH TABLE 


003122 FIN 
000100 177170 #IE,RXCS 
011244 PC,TIMDO 
47 ;DXO HUNG ON RESTORE COMMAND 
177170 7; ERROR? 
;BR_IF NO 
:DX0 RESTORE COMMAND ERROR 
DOTRK CHK FOR RECGRD NOT FOUND (RNF) 
#1,DOSEC SET TRK/SEC. SHOULD NOT MOVE 
:LOGIC THINKS JTS ALREADY THERE. 
DOEKR 
POCERR 


013040 | MDORSEC, DODISP ;SETUP TO READ SECTOR 
177170 | #IERXCS “LET INTERR LOOSE 


011244 Pc, r1N00 


:DXO HUNG ON READ CMD 
032737 001000 001246 2%: #B1T9,$DEVM :DROP DX1 TESTS? 
001045 DXTST5 “BR IF YES 
012737 014540 013046 i #DIREST,DIDISP ;REPEAT FOR DX1 
005037 003122 FIN 
052737 000120 177170 #<IE!DX1>,RXCS ;LET INTERR LOOSE 

011340 PC, TIMD1 

DXTST5 
177170 RXCS : ERROR? 


3$ ;BR IF NO 
74 :DX1 RESTORE CMD ERROR 


;DX1 HUNG ON RESTORE CMD 
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002656 3$: DITRK READ TO CHECK FOR RNF 
009001 002660 MO #1,D1SEC 
002654 DIERR 

664 DICERR 


003122 FIN 
015216 013046 MDIRSEC,DIDISP ;SETUP TO READ SECTOR 
000120 177170 M<IE!DX1>,RXCS ;LET INTERR LOOSE 


011340 JS PC,TIMD1 
42 3DX1 HUNG ON READ CMD 


SRE EKEEKEKEKEKEEEEREREEEKEEKEEKREEEKKEK 


: WRITE SECTOR WiTH DELETED DATA MARK TEST 


THIS TEST VERIFIES THAT THE WRITE DELETED DATA COMMAND CAN BE ISSUED 
:& THAT THE ‘DELETED DATA’ BIT 5 IS SET IN RXCS AFTER READY IS RECV'D. 
;HARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 


FTAA RARER EKER EEREEEKEEKEKEKKEEEEKEKERKERREKEEKERKEEEKKEREREKEKE 


032737 000400 001246 DXTST5: BIT #B1T8,$DEVM ;DROP DXO TESTS? 
001043 BNE DXTST6 BR IF YES 


012737 000005 003120 #5 ,DXTST 35 = WR DEL DATA TEST 
005037 002404 DOERR 

005037 002414 DOCERR 

012737 013056 013040 ADIFBUF ,DODISP ;SETUP DISPATCH TABLE 


005037 003122 FIN 
052737 000100 177170 AMIE,RXCS ;LET LOOSE 


004737 011244 PC,7IMDO 

104050 0 7;DX0 HUNG ON WRITE DEL DATA CMD 
000420 BR DXTST6 

012737 014556 013040 ADOSTAT,DODISP ;SETUP DISPATCH TABLE 


005037 003122 FIN 
052737 000100 177170 #IE,RXCS LET LOOSE 


004737 011244 PC,7IMDO 

104051 51 3DxX0 HUNG ON READ STATUS 
000404 BR DXTST6 

005737 177170 ERROR? 


100001 . :BR IF NO 
104057 READ STATUS ERROR 
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MARAAAASAAALALAALAAALARAASAASESEASESAS ESAS ESAS AAR ARRAS ALAS ASSES DS 


INVALID ADDRESS TESTS 


3A WRITE SECTOR COMMAND IS ISSUED TO INVALID TRACK 115(8) 
:® RXCS IS CHECKED FOR THE INVALID ADDR BIT 1 TO BE SET AFTER RDY. 
ie ABOVE IS REPEATED FOR INVALID SECTOR 33(8). 


Perrerecrrrrtrrtrerrrctititittttiitett tii tettett itt tii tt itt itt 


032737 001246 DXTST6: BIT #B1T8,$DEVM ;DROP DxO TESTS? 
BNE 4$ BR IF YES 


INVCT 
003120 #6,DXTST 76 = INV ADDR TESTS 
#115,DOTRK 
#1 ,DOSEC 
012737 177174 #46401 ,RXSA ; INVALID TRACK 


012737 014574 013040 2 ADOINV,DODISP ;SETUP DISPATCH TABLE 


005037 003122 FIN 
052737 000100 177170 MIE,RXCS :LET LOOSE 


011244 PC, TIMDO 
+f :DxX0 HUNG ON INVALID ADDR 


000002 177172 MINVADR ,RXES INV ADDR BIT SET? 
2$ :BR IF YES 


I 
; INVALID ADDR BIT NOT SET 


177170 : zsERROR BIT SET? 
3$ ;BR IF YES 
sERROR BIT NOT SET 


005737 010112 : ;DID WE JUST DO INV SECTOR? 
001013 4$ 7BR IF YES...DONE 


005237 010112 
002406 
000033 002410 #33 ,DOSEC 
000033 177174 #33,RXSA ; INVALID SECTOR 
1$ ;REPEAT FOR INVALID SECTOR 
010110 : +4 


010112 : ; DOING INVALID TRACK 
; DOING INVALID SECTOR 








abe 1 EXERC! ot 


10206 
010214 
010222 


010246 
010252 
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377 
010256 


001176 
017630 
001176 


017645 
026052 


017674 
026054 


017730 
026056 


017765 
026060 


010252 
000114 
000764 
003132 
020214 
003132 
003134 
003706 


377 


MARSA ASAALALALALASSAALAALARSLASSLASELESESAS ERAS ESAS SES SRSA SARE SS SG 


END OF PASS 


MARAE ASASAAALAALAALALSRALALALASASAASALASESASASR ALAS SASS S SSL SESS SS 


EOP: INC $PASS 
,ENDPAS 
$SPASS ,-(SP) 
-MSG1 
TERR,~(SP) 
-MSG2 
TSERR,=(SP) 
-MSG3 
PERR,~(SP) 
-MSG4 
PSERR,~(SP) 


eNULL 
003124 #114 ,MAXTRK 
003126 #500. ,.MAXSK 


1$: 
000 NULL: .BYTE 
~EVEN 


PASS CTR 


7sSAVE SPASS FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 


7zSAVE TERR FOR TYPEOUT 
:2GO TYPE--DECIMAL ASCII WITH SIGN 


;zSAVE TSERR FOR TYPEOUT 
:2GO TYPE--DECIMAL ASCII WITH SIGN 


7:SAVE PERR FOR TYPEOUT 
::GO TYPE--DECIMAL ASCII WITH SIGN 


23 SAVE PSERR FOR TYPEOU 
:GO TYPE--DECIMAL Aah WITH SIGN 
L CHAR 


> NU 

[FOR ALL SUBSEQUENT PASSES 
;COMPAT PASS 1? 

BR IF NO 


DONE MSG 


REPEAT 
NULL CHAR STRING 


SEQ 0055 
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CVKDAA SEQ 0056 


.SBTTL PROGRAM SUBROUTINES 


010256 012737 012004 000004 SIZE: MOV MINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
010264 000200 000006 MOV #200,ERRVEC+2 ;LOCKOUT INTERR 
010272 012012 CLR INTFLG 


010276 017776 #17776,R0 3SIZE MEM. START WITH 4K 
010302 R1 ;MEM MAP, 1=4K, 2=8K, ETC 
010304 012012 INTFLG 


010310 : (RO) 
012012 INTFLG :GOT TIMEOUT INTERR? 
2s ;BR IF YES 


R1 
157776 ' aha hi ;DONE 28K MEM? 
020000 —— :GO TO NEXT 4k 


010630 2$: RO ,MAXMEM 7 SAVE 
020000 010630 #20000 .MAXMEM ae? to iy LAST VALID BLOCK 


R1 é 
010610 010362 MEMTBL=2(R1) ,3$ 
: . WOR 0 MEM SIZE 
017160 -MEM 


RO 
0129012 INTFLG 
176500 #TK1S,RO SETUP CLUSTER CSR ADDR 
2 (RO) sDARE IT TO TIMEOUT 
012012 thle :DID IT? 


;BR IF YES 
176520 RO, ATK3S ;DID ALL 3? 
5$ ;BR IF YES 
000010 #10,R0 sELSE DO NEXT 
BR 4$ 
010606 5$: CLPRES sOPTION PRESENT 
BR 7$ ;ALL 3 MUST RESPOND 
010606 6$: CLPRES ;OPTION NOT PRESENT 
016746 ,~CLOPT 
017200 »NOTPRES 


012737 000006 000004 7$: MERRVEC+2,ERRVEC RESET TMO VECTOR 
005037 000006 ERRVEC +2 
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PROGRAM SUBROUTIN SEQ 0057 


005000 RO 

012701 000200 #B1T7,R1 

030137 001246 : R1,$DEVM sDEVICE DROPPED? 
001006 10$ ;BR IF YES 


. 


R1 
;BR_IF ALL BITS TESTED 


13$ 
000002 een ELSE BUMP INDEX 


0105 
010510 
010512 010532 010522 : MO 12$(RO) ,11% 
: . 0 DEVICE TO BE DROPPED 
017513 ,DROP 
010530 9$ 


010532 


010552 
010554 177514 : :SEE IF PRINTER ERROR 
7 :BR_IF NO 
010610 :CLR FLAG 
017050 :PRINTER NOT PRESENT 
017200 
BR 15$ 
010610 14$: PRPRES 
15$: PC 
CLPRES: :CLUSTER PRESENT = NON-ZERO 
PRPRES: PRINTER PRESENT = NON-ZERO 


MEMTBL : :MSG ADDRESSES 


017153 
000000 : ;MAX MEMORY 
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JL RRR EKER EEE REE EEE KERR 


3 RANDOM NUMBER CENERATOR 


FL RRR REE KEKE EERE EK 


010742 RAND : 
010740 
177771 

1$: 


sROTATE CARRY TO R1 
; DONE ? 


$ ;BR IN NO 
010742 ¢ ;ADD NUMBER TO MAKE X 129 


010740 ;ADD NUMBER TO MAKE X 129 
4 al ;RO ADD LO CONSTANT 


#47401 8 »R1 ADD HI CONSTANT 


010740 R1,HINUM 

:SCALE TO BE WITHIN LIMITS 
177400 #177400,R1 SAVE LO BYTE ONLY 
010734 MP R1,LOLIM 

;BR IF N < LOLIM 


RAND 
010736 R1,HILIM 
RAND ;BR_ IF N > HILIM 
010732 PC sELSE EXIT WITH R1 = N 


010734 
010736 


010740 176543 : .WORD 176543 
010742 123456 : .WORD 123456 


010744 123727 001210 000001 : CMPB SENV 41 sAPT? 
010752 001401 BEQ 1$ ;BR IF YES 
010754 CKSWR 

010756 : RTS PC 
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M11 TINES 


CVKDAA. PROGRAM SUBROU SEQ 0059 


FL EAA ARERR ERREREREEEEEAEERERREREEREEEAREREEEEREERREEEH 


;ROUTINE TO DISPLAY CURRENT DEVM & ALLOW OPERATOR TO INPUT NEW VALUE. 


5 FERRARA ARERR EE EERE REAREREREEKEREREEEREEKEREH 


020311 GTSDEV: TYPE .DEVM ELSE SHOW CURRENT 
001246 MOV $DEVM,=(SP) 7sSAVE SDEVM FOR TYPEOUT 
3:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
010772 025222 - SMNEW GET NEW 


010776 1$: -(SP) CLR CTR 
011000 -(SP) CLR NEW DEVM 


170136 2$: a a Re is 


BP ; NO 
170132 a$TKB,-(SP) sELSE GET_CHAR 
011014 177600 #°C177, (SP) MAKE IT 7 BIT ASCII 


011020 000015 : (SP) ,415 3<CR>? 
BNi 7$ :BR_IF NO 
000004 4(SP) sELSE IS IT 1°ST CHAR? 
;BR IF YES 


4$ : 

000002 2(SP),$DEVM ELSE SAVE NEW DEVM 
000006 #6, SP RESTORE STACK 
001165 : ,SCRLF 


024322 : PC, $TYPEC sECHO CHAR 
000060 (SP) ,A60 sCHAR < 0? 
9$ ;BR IF YES 
000067 (SP) ,467 :CHAR >7? 
;BR IF YES 
000060 #60, (SP)+ STRIP OFF ASCII 
000002 2(SP) Bt IT 1°ST CHAR? 


8$ BR IF YES 

(SP) ;ELSE SHIFT PRESENT CHAR 
(SP) :TO MAKE ROOM 

(SP) FOR NEW ONE 


000002 : 2(SP) KEEP CHAR CT 
177776 -2(SP), (SP) :SET IN NEW CHAR 
2s GET NEW ONE 


104401 001164 : . SQUES TYPE ?<CRLF> 
000747 BR 6$ :DO ALL OVER 


oo CC0OCoO CCOOO 


aed abated atabad ad 


WH MRM -- 
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ett e ei ict iii i iii iii iii i iii ii iii ii iiiiiti titi iii iii titisiit 
ROUTINE TO SET 2 CONSECUTIVE INTERRUPT VECTORS 
3 ARGUMENTS ARE PASSED THRU R5: 
VECTOR ADDRESS 
INTERRUPT SERVICE ROUTINE ADDRESS FOR RECVR 
INTERRUPT SERVICE ROUTINE ADDRESS FOR XMITTER. 
PRIORITY WILL BE SET TO DISABLE FURTHUR INTERR. 


APRA ARSREEEARAREARARRRARAASALALAS ALES AL ERASER RR RRR SASS A SES SY 


RO,-(SP) 7 SAVE 

(R5)+,RO :GET VECTOR ADDR 

(R5)+, (RO)+ PUT SERV iby ADDR THERE 
#200, (RO) + DISABLE _INTERR 

(R5)+,(RO)+ GET XMIT SERV ADDR NEXT 
#200, (RO) 

ld a ;RESTORE 


leolelelelelelela) 
aa aa ca aah aad aa and ail 
de ed ce cad ed ceed end 
aed aed a ce ced ened ed ee 


RESEVSKE 


FEAR EKER EEE EE 


WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
RETURN IF TIMED OUT 
zRETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


FERRER EERE EEE EEE EERE EEKKEK 


012537 011240 TIMER: (R5)+,FLGHLD GET FLAG 
012537 011242 MOV (R5)+,CTHLD :GET COUNT THAT FLAG SHOULD GO TO 


012701 000010 #10,R1 
0127 177777 4$: #-1,RO0 
000034 011242 : @FLGHLD,CTHLD ;RESPONDING? 
2$ BR IF YES 
010744 


sELSE DEC COUNTER 
SBR Oe TIMED OUT 


— — Sy 
3 &S 


Sx 


— 
RUNAD 
Sanroe 


001200 


ELSE TIMED OUT 
2$: a ; JUMP OVER ERROR ON RETURN 


FLGHLD: 0 sFLAG 
CTHLD: 0 ;COUNT THAT FLAG MUST REACH 
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III iii iri iii iii rier iii iitir rir, 
“WATCHDOG TIMER TO PREVENT DXO FROM ENTERING AN ENDLESS WAIT LOOP 
RETURN IF TIMED OUT 
hee +4 [F NOT TIMED OUT & JUMP OVER ERROR 


FERRER EERE ERE ERE EEE EKER ERE EKREREREEEEEEEEKE EH 


011244 011336 TIMDO: DOTMO 
000010 011334 MO #10,CTREG1 
177777 011332 4$: #-1,CTREG 
003122 1$: FIN 7 FINISHED? 


2$ BR IF YES 
010744 PC ,EXAMKB 
011332 CTREG ELSE DEC CTR 
1$ :BR IF NOT TIMED OUT 
001200 $DEVCT FOR APT 
011334 9 at 
011336 DOTMO SET FLAG 
-+6 TIMED OUT 


011324 000004 2s: 4, (SP) ;BUMP RET 
011330 PC 


011332 000000 CTREG: 
011334 CTREG1: 
011336 000000 DOTMO: 31 = TIMEOUT OCCURED 


DIDS IOICISIIOISIOISIDIIISIDIOIDIDIOIOIOIIOIDIOIOIIOIOIUIOIOIOITIOIOIOIOI IIIT OT ITT TOTTI TTT ITA 
“WATCHDOG TIMER TO PREVENT DX1 FROM ENTERING AN ENDLESS WAIT LOOP 
; RETURN IF TIMED OUT 

;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


FU AERA REE EEE KEKE KEKE ERE KKK 


011426 TIMD1: D1TMO 

000010 011334 MO #10,CTREG1 

177777 011332 4$: #-1,CTREG 

003122 1$: FIN :F INISHED? 


2$ BR IF YES 
010744 PC ,EXAMKB 
011332 coe ;ELSE DEC CTR 


;BR IF NOT TIMED OUT 
001200 $DEVCT FOR APT 
011334 CTREG1 
BNE 4$ 


011426 D1TMO SET FLAG 
-+6 TIMED OUT 


000004 : * . (SP) ;BUMP RET 


SFESES 


BAT 


31 = TIMEOUT OCCURED 
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01 
011440 


011442 
011446 


011452 


011512 


011514 
011520 


011522 
011524 


012537 
012537 


012701 
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177777 


011522 
011524 


000010 
177777 
011524 
010744 


001200 


000004 


002624 
002650 


003074 
003120 


000032 


kK 
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J FARRER ERE EKER EERE EKREEEEEEEEREREEKEEKEEEERERE EEE ERE 


: GENERAL TIMER 


DDSI OIOIISIIOIIDIOISIISIOIISISIIOIOIIIIIIDIISIUIIOIIUISIOIIIDIIOIUIDIOIDIOIIOIDIIDDIOINDE 
TIMER1: MOV #-1,RO0 
DEC RO 


BNE owe 
RTS PC 


DBASE ISISIOISIIIOI IIIS IOIDIOIIOIDIIOIIOIIUIOIUIOISIOISIOIOIIOIUIO IOI IOI IE 
;WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
RETURN IF TIMED OUT 

RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


FARRER AKER EERE EKER EERE EERE EKEEERER EH 


TIMER2: MOV (R5)+,REGHLD GET REG 
MOV (R5)+,BITHLD :GET BIT TO BE TESTED 


MOV #10,R1 


4$: MOV #-1,RO 
1$: BIT BITHLD,@REGHLD ;BIT THERE? 
BNE 2s BR IF YES 
JSR PC,.EXAMKB 
DEC RO ELSE DEC COUNTER 
BNE 1$ ;BR IF NOT TIMED OUT 
INC $DEVCT FOR APT 
DEC R1 
BNE 4$ 
BR - +6 sELSE TIMED OUT 
23: ADD #4 RS ; JUMP OVER ERROR ON RETURN 
RTS R5 
REGHLD: 0 DEVICE REG 
BITHLD: 0 :DEV REG BIT TO BE TESTED 


J FREER EEE EEE EEE EREEEREREERERE EE 


;ROUTINE TO CLEAR BOTH BAD TRACK/SECTOR TABLES 


FARRER KEKE EKER EEE EERE EEREEKEKEEEKREEREREKKK EH 


o_o MOV #DOBAD ,RO 


CLR (RO) + 
CMP RO, ADOBAD+20. 
BNE 1$ 
MOV #D1BAD ,RO 
2$: CLR (RO) + 
CMP RO,AD1IBAD+20. 
BNE 2s 
RTS PC 


SEQ 0062 


L 
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MR AAAAAAAAALASZAALASASARAAARALASALELASALASSERS SARE REAR RRA R SALES SS | 


‘LOAD DXO BAD TRACK/SECTOR TABLE 


FFARR AREER AREER RERRERREREEREEEERERERERRRER EERE 
011560 RO,-(SP) ; SAVE 


011562 002624 MO #DOBAD ,RO 
3 (RO) ENTRY PRESENT? 


2$ ;BR IF YES 
177174 sah. (RO) eels STORE BAD RXSA IN TABLE 


$ (RO) + ;BUMP PTR 
002650 - aetaste ti sAT oft TABLE ? 


:BR 
104 3:10 BAD SECTORS...REPLACE 
elas RESTORE 


DDRII O OIE IISIDIOIIOIIIIIUIIIIUIOIUIUIOIUIIIDIIIOIIOIIOIUIUIDIIIDIO ISIC OR ttt 
;CHECK DXO BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 
7 1F TRK/SEC IN TABLE, RETURN TO RE-CALCULATE NEW TRACK & SECTOR. 


CLARE RARER RARER EERE EERE EERE EERE EERE EERE KEE 


011616 010046 CKOBAD: MOV RO,-(SP) 3 SAVE 
011620 010146 MOV R1,-(SP) 


011622 013701 DOTRK,R1 
000301 R1 
053701 DOSEC,R1 


#DOBAD ,RO 
RO,ADOBAD+20. ;END OF TABLE? 
2$ ;BR I 


‘BR IF YES 
(RO) ‘ELSE ANY ENTRY? 
2$ ‘BR IF NO 
(RO) +.R1 :ELSE COMPARE? 
3$ SELSE DONT BUMP RET ADDR 
#2,R5 ;BUMP RET ADDR 
(SP)+,R1 ‘RESTORE 


011666 (SP)+,RO 
011670 R5 
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011672 


011730 
011732 


011742 
011746 


011770 
011772 


010046 
010146 
013701 
000301 
053701 
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SUBROUT INES 


SL RRR ERR RRR ERE EERE REE ER EERE REE 


;LOAD DX1 BAD TRACK/SECTOR TABLE 


etree iii titi titi itti titi iii 
LDIBAD: MOV RO,-(SP) 3 SAVE 


003074 #D 1BAD ,RO 
1$: (RO) sENTRY PRESENT? 


2s ;BR IF YES 
177174 RXSA, (RO) ‘ELSE STORE BAD RXSA IN TABLE 
3$ EXIT 
: (RO) + :BUMP PTR 
003120 RO, AD1BAD+20. TAT END a TABLE? 
105 '10 BAD SECTORS...REPLACE 


(SP)+,RO ;RESTORE 
PC 


PEt iii iii iti iit iii iii iii iii iii itiiiii 
; CHECK DX1 BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 
7 1F TRK/SEC IN TABLE, RETURN TO RE-CALCULA;E NEW TRACK & SECTOR. 


CLR AAR ARERR EAE EERE EERE EERE 


CK1BAD: MOV RO,~(SP) ; SAVE 
MOV R1,-(SP) 


DITRK,R1 
R1 
DISEC,R1 


#D1BAD ,RO 
RO,ADIBAD+20. ;END OF TABLE? 
2$ 7BR IF YES 
(RO) ELSE ANY ENTRY? 
$ BR IF NO 
(RO)+,R1 ELSE COMPARE? 
1$ BR IF NO 
3$ ELSE DONT BUMP RET ADDR 
#2,R5 ;BUMP RET ADDR 


(SP)+,R1 sRESTORE 
MS 
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012004 
012010 
012012 


012014 


012146 


013737 
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012012 


177514 
012144 


012140 
012140 


012140 
012140 
012140 


000012 
000040 
000015 


012142 
001200 


012144 


177516 
000015 


000012 
000176 


012140 
012140 
012140 


N 
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-SBTTL INTERRUPT HANDLERS 


PETTITT i iit ilitiiti ir 
; GENERAL SERVICE ROUTINE TO BUMP ‘INTFLG' 
; CALLING ROUTINE WILL KNOW WHAT TO DO 


ECPI CI t iii tii titi) 
INTSRV: INC INTFLG 

RTI 
INTFLG: 0 


'WEADAERAAAARRRARERRARRERARAR RSLS LESS S ERR ESE RRR ER RRR RRR RR RSE R REDE OD 


ZPRINTER INTERRUPT HANDLER: VALUES FROM 40 THRU 176. 


FARA AAA ERE RE RAERERERARAEERERERAERARERREREREERAHRERHEEREREERH REED 


PRSRV: PRS ,SPRS ; STORE 
T SPRS 7; ERROR? 
1$ ;BR IF NO 
7 PRINTER STATUS ERROR 


PRCHR , PRB sELSE PRINT CHAR 
aaa JUST DID CR? 


2 BR IF YES 

PRCHR ,ALF + JUST DID LF? 

3$ IF YES 

PRCHR ,4176 JUST DID LAST CHAR? 
4$ BR IF YES 


~ ane en BUMP CHAR FOR NEXT INTERRUPT 


etre ;DO LF NEXT 
edits ;DO SPACE NEXT 


1 cies ;DO CR NEXT & START OVER 
LIN 
$DEVCT FOR APT 


CHAR TO A. PRINTED 

sLINE CTR 

:STORE PRINTER 

SET IF DOING 5° LINES ONL Y 
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FARA EERE ERKEEEREERRERRERKREKERREEREREK 


CLUSTER TERMINAL #1 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FERRARA EEE EERE EERE EERE 


042737 000100 176504 TPISRV: MIE,TP1S DISABLE INTER, RECV'R WILL TURN BACK ON 
bbe 012244 176506 MO TICHR,TP1B PRINT CHAR 


013737 176502 012246 TKISRV: TK1B,T1HLD STORE CHAR 
012246 012244 CMP eer ht 0K? ves 


10 CHAR COMP ERROR 


012244 000377 : T1CHR A377 LAST CHAR? 
2$ BR IF YES 
012244 ' T1CHR ELSE BUMP 
012222 BR 3$ 


012224 012244 2$: T1CHR START OVER 
001200 SDEVCT FOR APT 
019943 000100 176504 3$: AMIE,TP1S sALLOW PRINTER INTERR 


012244 000000 TICHR: CHAR TO XMITT 
012246 TTHLD: zREC'D CHAR 


FF EER KEKE EEE EE KEKE KEK EK ERE EKKKKEKEKEKEREKEREEKKKKK 


;CLUSTER TERMINAL #2 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


CLARKE KKK KKK EK EKER KEKE EKEK KEKE EKEKEKEKEKEKEKKEKEKEKEKEKKEKEREKEEK 


012250 000100 176514 TP2SRV: MIE, TP2S DISABLE INTER, RECV'R WILL TURN BACK ON 
Abed 012344 176516 M T2CHR,TP2B PRINT CHAR 


013737 176512 012546 TK2SRV: TK2B, T2HLD STORE CHAR 
023737 012346 012344 C T2HLD, T2CHR 20K? 

001401 1$ :BR IF YES 
104011 11 CHAR COMP ERROR 


023727 012344 000377 : T2CHR ,A377 :LAST CHAR? 
2s BR IF YES 
012344 T2CHR ELSE BUMP 
012322 3$ 


012324 012344 : T2CHR START OVER 
$DEVCT FOR APT 
176514 : AMIE, TP2S sALLOW PRINTER INTERR 


CHAR TO XMITT 
sREC'D CHAR 
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012350 


012422 


012424 
012430 
012434 
012442 


012444 
012446 


012450 
012456 
072464 


012522 
012524 
012530 
012534 
012542 


012544 
012546 


042737 
013737 
000002 


013737 


042737 
013737 
000002 


013737 
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000100 
012444 


176522 
012446 


012444 
012444 


012444 
001200 
000100 


000100 
012544 


176612 
012546 


012544 
012544 


012544 


176524 
176526 


012446 
012444 


000377 


176524 


012546 
012544 


000377 


176614 


C 
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J FERRARA EEEEREREEEEEEEEKEEEKEEREREKEEEEREREEREEKRREREEEEEE 


CLUSTER TERMINAL #3 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FARRER EERE ERE ERE ERE EERE EREREREE 


TP3SRV: MIE, TP3S DISABLE INTER, RECV'R WILL TURN BACK ON 
MOV T3CHR,TP3B PRINT CHAR 


TK3B,T3HLD STORE CHAR 
T3HLD, T3CHR :O0K? 

1$ BR IF YES 

12 CHAR COMP ERROR 
* amet LAST CHAR? 


;BR IF YES 
om ELSE BUMP 


TK3SRV: 
C 


2$: T3CHR 
$DEVCT 
3$: #IE,TP3S 


sSTART OVER 
sFOR APT 
;ALLOW PRINTER INTERR 


T3CHR: CHAR TO XMITT 
T3HLD: sREC'D CHAR 


FLERE ERE EKER EERE EKER EREEKEEKEKEREEEKEKEKEEKKEK EK 


zASYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FL EKER KEK EKER EEK EKERE KEKE EKEEKEKKEKEEKEKEEKEEKEKEEKEKK 


AMXSRV: BIC AMIE ,AMXC 
MOV 


:DISABLE INTER, RECV'R WILL TURN BACK ON 
COMCHR , AMXB ;XMITT CHAR 


AMRB , COMHLD + STORE CHAR 
COMHLD,COMCHR OK? 
1$ BR IF 


YES 
13 ;CHAR COMPARE ERROR 
COMCHR , 4377 ;LAST CHAR? 
2$ ‘BR IF YES 
COMCHR E BUMP 
3$ 
2$: COMCHR 


S$DEVCT 
3$: AMIE ,AMXC 


:START OVER 
sFOR APT 
7ALLOW XMIT INTERR 


COMCHR: 
COMHLD : 


:XMIT CHAR 
;REC'D CHAR 
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J FERRARA EEE EEE REE EREEREEKREEKEREEREREREREEKKEE 


:SYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 27 THRU 377. 


J FERRARA REE RE REE ERE EKER EEEEEEE 


000100 176624 SMXSRV: BIC MIE, SMXC ;DISABLE INTER, RECV'R WILL TURN BACK ON 
012544 MOV COMCHR , SMXB :XMITT CHAR 

012544 COMCHR ,#377 LAST CHAR? 
012572 2 :BR IF NO 


012574 012636 
012600 


012636 
000100 ;ALLOW RDY INTR SO CAN SHUT DOWN FAST 
001200 $DEVCT FOR APT 


012550 


WNWWAWAWWW 
td ad a ad od ed ed 
3 So 
CONAURWH—O 


176624 : ASEND , SMXC sNO MORE TO SEND 
$DEVCT FOR APT 


000020 
001200 


;SET WHEN LAST CHAR XMIT 


013737 176622 012546 SMRB , COMHL D STORE CHAR 
012546 000026 C COMHLD , #026 ; IGNORE SYNC CHARS 


4$ 
012546 012544 COMHLD,COMCHR ;0K? 
1$ BR IF YES 
14 CHAR COMPARE ERROR 
012544 000377 : aa esiccle LAST CHAR? 


BR IF YES 
012544 COMCHR ELSE BUMP 
BR 3$ 


177777 =012544 : 4-1, COMCHR : INDICATE DONE 
176620 #IE,SMRC zALL DONE 
$DEVCT FOR APT 
012726 4$ 


012730 052737 176624 : AMIE, SMXC ALLOW XMIT INTERR 
012736 000002 : 
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DIARIES IIISISIIIOIIOIOUIOISISISIISIOIIIOIIIOIIOIIIOIOIIOIIOIIIOI III TOIT I TOTES IIE 
DISK INTERRUPT HANDLERS 
TALL DISK INTERRUPTS ENTER THRU RXSRV i DISPATCH TO THE 
;CURRENT SERVICE ROUTINE POINTED TO B 
; DODISP FOR Dx0 INTERRUPTS 
DIDISP FOR DX1 INTERRUPTS 
:WILL GENERALLY BE IN THE ORDER OF SERVICE ROUTINES BELOW. 


FIR OI IORI CII IOI OIRO IOI IOI ORO TOT AAT SAIS AIASAISISISS AIS IS SASS 
012740 105737 177170 RXSRV: RXCS CONTR RDY? 
BM 1$ 7;BR IF YES 

177170 013050 RXCS,SRXCS sELSE SAVE FOR ERROR TYPEOUTS 

177172 013052 RXES,SRXES 

177174 013054 RXSA,SRXSA 

15 UNEXPECTED INTERRUPT 

012772 000002 :GO BACK 


012774 177170 : RXCS ERROR? 
013000 2s :BR IF NO 


013002 013737 177170 013050 RXCS,SRXCS sELSE SAVE FOR ERROR TYPEOUTS 
013010 013737 177172 013052 RXES,SRXES 
013016 013737 177174 013054 RXSA,SRXSA 


013024 032737 000020 177170 2%: MUSEL ,RXCS CHECK UNIT SELECT BIT 
013032 001003 D1INT 7;BR IF INTER FROM Dx1 


013034 000177 000000 J a@D0D1SP ELSE DISPATCH TO DXO SERVICE ROUTINE 
013040 000000 DODISP: 


013042 000177 000000 DIINT: aD1DISP 3DX1 INTERRUPT DISPATCH 
013046 000000 DIDISP: 


013050 000000 SRXCS: SAVE RXCS 
013052 SRXES: SAVE RXES 
013054 00000 SRXSA: SAVE RXSA 
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DRAB IOIIOIIOIIOISIOISISISIISIUIIOIIOIOIOIOIDIOIIOIIOIOIOIIOII OI IIT TOT TT TSI TS IE 
; HANDLER TO FILL THE DRIVE BUFFER FOR Dx0 
3& POINT TO THE WRITE SECTOR HANDLER. 


J FARRER EREEEKEKEEKEER EEE REREREREKKE 


013056 012703 000100 #100,R3 WORD CT 
013062 002406 MO eo 


002410 DOSEC,R1 
013122 013040 ADOWSEC,DODISP ;POINT TO WRITE SECTOR AFTER RTI 
1 177170 AM<FBUF!IE>,RXCS ; ISSUE FILL BUFFER CMD 
177172 1$: MOV a sFILL ENTIRE SECTOR WITH ITS ADDRESS 


1$ 
013120 


SRK EEKEEKKEKKKREKKKEKEKEREEKEKKEEEEEKEEKEKEEKEKEK 


sHANDLER TO WRITE THE SECTOR FOR DXO & POINT TO WRITE CHECK. 


J DRE ERE KER EKER EEK KEK EEK EEERKEEKEKERKEEKEEEKRKKEKEKREKREEK 


013122 013701 002406 DOTRK,R1 
SWAB R1 
002410 DOSEC,R1 


R1,RXSA ;LOAD TRACK & SECTOR ADDR 
013040 MDOWCHK ,DODISP ;POINT TO WRITE CHECK HANDLER 
003120 000005 ete ae 


000115 177170 Cesare aes sONLY FOR WRITE DELETED DATA TEST 


O1si fe 000105 177170 : A<WSEC!IE>,RXCS ; ISSUE WRITE SECTOR COMMAND 
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AAAI IES ISIC ISIIIISIISISIIIOIIIIOIIIIIIIUIOIUIIIDIIUIIO II I IO It tt tt 
“HANDLER TO WRITE CHECK ON DxO. 
[WILL GO TO FILL BUFFER TO DO SAME SECTOR ON SOFT ERROR 

7;0R NEXT SECTOR ON NO ERROR OR HARD ERROR. 
zsWILL GO TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 
3A RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF ) 


eretrertrr cit Tittit tte titi tii tetti ttt ttt t tt ttt ttt i tt ttt iti t et 
013176 177170 DOWCHK: TST RXCS A yy 
BPL 1$ N NO 
002404 000012 DOERR ,#10. 10 ERRORS? 
6$ :BR IF NO & TRY AGAIN 
011560 PC ,LDOBAD ;LOAD BAD TRK/SEC TABLE 
000020 013052 ie 2 SRXES SEEK ERR ERROR? 
HARD SEEK ERROR WRITE SECTOR 

013310 013040 #35, DODI ;GO TO 2$ AFTER RESTORE 

013546 000117 177170 MOV #<RESTOR' IE>, RXCS 


013250 3 16 HARD ERROR WRITE SECTOR 
013252 BR 2$ :GO TO NEXT SECTOR 


013254 002404 3 _ sANY y ERRORS? 
026054 TSERR TOTAL SOFT ERR CT 
PSERR :PASS SOFT ERR CT 
013052 ARNF ,SRXES SEEK ERROR? 
8$ ;BR IF NO 
;SOFT SEEK ERROR WRITE SECTOR 


;SOFT ERROR WRITE SECTOR 


0024 : DOERR 
002410 000031 DOSEC,431 LAST ODD SECTOR? 
000002 002410 MO #2 .DOSEC TELSE DO EVEN SECTORS NOW 
002410 000032 38: DOSEC #32 :LAST EVEN SECTOR? 
5$ =BR IF YES 


000002 002410 #2,DOSEC :ELSE BUMP SECTO 
013352 013056 : DOF BUF :GO TO FILL BUFFER & DO ANOTHER 


013356 000001 002410 : #1 ,DOSEC sALL SECTORS DONE...CHECK DATA 
013364 005037 002404 DOERR 

013370 002412 DOCMER 

013374 000137 013432 DORSEC :GO TO READ SECTOR HANDLER 


002404 : DOERR 
000020 013052 2 SRXES J ~ ag 3 ERROR? 


IN NO 
013056 013040 #DOFBUF ,DODISP ;GOTO FILL BUFF AFTER RESTORE 
000117 177170 #<RESTOR! IE>,RXCS 
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5 REAR AERAAAEEEAARAEAEEEAEREREERAAAEREREERARERREREERAEREEERERRAKEEE 


;HANDLER TO READ A SECTOR ON DXO & POINT TO CHECK. 


DDRII ISIOISOIIIIIISIISIIIII ISIE RE tt 
013701 002406 DORSEC: MOV + (i R1 
000301 SWAB 


053701 002410 BOSEC. R1 
010137 177174 R1,RXSA ;LOAD TRK & SECTOR ADDR 


012737 013466 013040 M#DORCHK,DODISP ;POINT TO READ CHECK HANDLER 
Basone 000107 177170 M<RSEC!IE>,RXCS ; ISSUE READ SECTOR COMMAND 


SRR IOI ISI IDIOIIIIOISIOISIIIIOIIIIIUIDIOIOIIOIDOIDIOIUIOIOIIOIDIUIDIIDIOIUIIOISIIIIDEI ID 
SHANDLER TO READ CHECK ON DXO. 

[WILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 

;WILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 

;WILL GO TO READ SECTOR (SAME) ON ERROR. 

ZA RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


DARGIS IOI IOI IOIIISIISISIOID I IOIOIIOIOIUIOIOISIOIOIOISIOIOIOIOD IO IODIDE III 
177170 DORCHK: TST RXCS A 

BPL 1$ F NO 
002404 000012 ona 10 ERRORS? 


BR IF YES 
002404 DOERR ELSE DO AGAIN 
000020 013052 —- ;SEEK ERR a 


:BR IF 
013432 013040 #DORSEC DODISP ELSE DO. RESTORE & RET TO RD SEC 
000117 177170 MOV M<RESTOR! IE>,RXCS 


011560 : PC ,LDOBAD ;LOAD BAD TRK/SEC TABLE 
000020 013052 or me SEEK ERROR? 


E ;BR IF NO 
013552 104066 66 SHARD SEEK ERROR READ SECTOR 
013554 012737 014454 013040 A#DONEXT ,.DODISP ;DO RESTORE 
013562 012737 000117 177170 MOV #<RESTOR! E>, RXCS 
013570 000002 
013572 032737 000010 013052 2 #CRC,SRXES CRC ERROR? 
001404 10$ BR IF NO 
002422 INC DOCRC sELSE SET FLAG 
106 SHARD CRC ERROR 
2$ :® GO TO EMP BUFF TO CHK DATA 
002422 : DOCRC 
20 


: HARD READ ERROR 
014454 DONE XT 
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012703 


002404 
026054 
02 


6060 
000020 013052 


002404 
003120 
000040 


000005 
177172 


013712 


013040 
000103 177170 
177172 
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1$: TST 


BR 
9$: ERROR 


2$: CLR 


6$: JMP 


DOERR 

2$ 

TSERR 
PSERR 
ARNF , SRXES 
9$ 

67 

2$ 

21 


DOERR 
-- aca 


6 

#DD ,RXES 
6$ 

52 
DOEBUF 


ZANY PREV ERRORS? 
STOTAL SOFT ERR CT 


“gPASS SOFT ERR CT 


;SEEK ERROR? 

;BR IF NO 

;SOFT SEEK ERROR DURING READ 
;SOFT ERROR READ SECTOR 


;DOING WRITE DELETED DATA TESTS? 
;BR IF NO 

; “DELETED DATA’ SET? 

;BR IF YES 

:DD NOT SET 

3;GO TO EMPTY BUFFER 


DDI IIOISIOIIIIIOIOIOIIIDIEIIIIOIIIOIUIOIIOISIIOISIDIOIUIOIOIOISIOIOIOUIOIOIDIIIDIDIIUIDIIEI 
; HANDLER TO EMPTY THE DRIVE BUFFER FOR DxX0 
:®& POINT TO THE CHECK DATA HANDLER. 


FF AREER EKEEEREKEEERKEEREEKKEEKEERREKEEEEKEKKKEEKEEREKEEEREKEKEEKKEE 


DOEBUF : MOV 


1$: MOV 


#100.R3 
#DOBUF ,R1 


#DOCDAT ,DODISP 
#<EBUF ! TE>, RXCS 


RXDB, (R1)+ 
R3 
1$ 


sWORD CT 

;BUFFER ADDRESS 

:POINT TO CHK DATA AFT INTER, 
: ISSUE EMPTY BUFFER CMD 

:GET WORD & STORE IT 


SEQ 0073 


J 
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[RRA ER REAR E AERA ARERR Ee 
:* HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DXO. 
WILL GO TO NEXT SECTOR HANDLER _— NO ERR OR HARD ERR. 
TOR (SAME) WHEN SOFT ERR. 
zTHIS ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


[RRR ARR RER RRA RE ER 
013750 002412 DOCDAT: CLR DOCMER 
000100 MOV 
002406 


R 
002410 1 NOW HAS —— DATA 
002424 #DOBUF ,R2 GE T BUFFER 
: ° ; COMPARE ig 


2$ BR IF YES 
002416 ‘ sELSE SAVE 
002420 
002412 


z:WORD CTR 


014016 
014020 
000002 


002412 : zANY COMP ERR? 
$ 7BR IF NO 
002422 a CRC ERROR? 


:BR 
DATA CRC ERROR 
014050 


014052 023727 002414 : DOCERR,#10. sELSE, 10 ERRS YET? 
001033 7$ BR IF NO 
023727 003120 DXTST #3 :DOING INIT TEST? 
001002 8$ 


BR IN NO 
014074 : INITIALIZE ERROR 


014076 : sHARD ERROR DATA COMPARE 
014100 000415 BR 


014102 002422 : HERE FROM CRC ERROR? 
014106 E 15$ : F 

014110 CRC ERR WITH DATA OK 
014112 0004 BR 


014114 002414 2 DOCERR zANY PREV ERR? 
5$ :;BR_IF NO 
026054 TSERR : TOTAL SOFT ERR CT 


026060 INC PSERR :PASS SOFT ERR CT 
014132 3 23 :;SOFT ERROR DATA COMP 


KEKEEKELER ES 
NSSHVAARAV=S 
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014134 5$: DOCERR 
014140 DOCRC 
014144 014454 DONEXT 


014150 005237 002414 7$: DOCERR 
003120 DXTST,#3 :DOING INIT TEST? 


:BR IF YES 
013432 DORSEC sELSE READ SECTOR OVER AGAIN 
014170 014612 12$: DODUN sALL DONE 


IARI IISIOIOI ICI SIOIDIOIDISIOISIOIOIIIOIIOIIIOIOIIOIOIOIOIIOIUIOIOI IOI TOTTI OR TOR TTT TOT TOT IO 
“HANDLER TO SETUP NEXT SECTOR/TRACK FOR DXO. 

;WILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
;WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
[WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


rite tiititiii titi titi ti tigiiiitigiilitititiitiitiiiriritid iat 
014174 002404 DONXT1: CLR DOERR 
5037 002412 CLR DOCMER 
002410 000031 DOSEC 431 LAST ODD SECTOR? 
1$ ;BR IF NO 
000002 002410 ~ #2,D0SEC sELSE DO EVEN SECTORS NOW 
002410 000032 : DOSEC ,432 LAST EVEN SECTOR? 
3$ BR IF YES 


000002 002410 #2,DOSEC ;ELSE BUMP SECTOR 
014242 013432 : DORSEC :GO READ SECTOR 


014246 010000 164664 : > llama :SKIP TYPEOUT IF NOT SET 
017076 -DRVO 
017551 -TRK 
002406 DOTRK,~(SP) 3zSAVE DOTRK FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
017622 DUN 


: FIN ey TO 7 TO Dx1 
003124 2 TRK ,MAXTRK ST TRACK? 


DOTRK 
002410 #1 ,DOSEC TINIT SECTOR 
BR 5$ 


164602 : OITI2 2am :SKIP TYPEOUT IF NOT SET 


017076 
017556 
017622 
002400 : sPATT DONE FLAG 

177170 : :DISABLE DXO INTERRUPTS 
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003120 
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003126 
164512 
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000001 
000002 
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eA ARAARARAARASALEAALAARRARASASESALALESAA ALAS ESA RAR AREER SARE SSDS SD 


;HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR Dx0. 


FARRAR AERA EERE EREKEEREEREEEEA EERE ERE EERE 


DONXT2: ie 


1$: BIC 


DONEXT: a 


DOERR 
DOCMER 

FIN 

DOCNT 

~ eee 
#B1T12,aSWR 
1$ 


-DRVO 
» RANDOM 


DUN 
MIE ,RXCS 


ose 


;SETUP TO GO TO Dx1 

:DID ALL SEEKS? 

3 F NO 

;SKIP TYPEOUT IF NOT SET 


DISABLE DXO INTERRUPTS 


SEQ 0076 
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014504 
014512 
014520 


014522 


014540 
014546 
014554 


014556 
014564 
014572 


014574 
014602 
014610 


014612 
014616 
014624 


014626 
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012737 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


005237 
042737 
000002 


005237 
042737 
000002 


MACY11 oo 


046032 
014612 
000111 


014612 
000105 


003122 
000100 


003122 
000120 


177174 


013040 
177170 


013040 
177170 


013046 
177170 


013040 
177170 


013040 
177170 


177179 


177170 


M 
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MARR RARERAAASLALASELSSE LASERS ASE SR EERE ESE RRR RRR SRS SER RS RRR ES SS 


;HANDLER TO SETUP INITIALIZE COMMAND TEST 


FFARR R ARERR CREE AEAEEERAERAEREEREREE EERE 


DOINIT: MOV #46032 ,RXSA ;TRY 1G FAKE DRIVE TO GO TO TRK 76 SEC 26 
ZINIT SHOULD GO TO TRk 1, SEC 1. 
MOV #DODUN,DODISP ;POINT TO DONE HANDLER 
MOV #<INITAL!IE>,RXCS :DO INIT COMMAND 


RTI 


S RARER ERKEEEREEEEEKKEEKE EE 


;HANDLERS TO SETUP RESTORE COMMAND TEST 


FAA AERA EEE REE 


DOREST: MOV #DODUN,DODISP ;POINT TO DONE HANDLER 
“94 M<RESTOR! IE>,RXCS 


DIREST: MOV #D1DUN,D1DISP 
“4 AM<RESTOR! IE!DX1>,RXCS 


—MAARAAEAAASALSASELASELRARRALASEARE SELES ELAS ER ER SRR SERRE RE SRR ARES SS 


“HANDLER TO SETUP READ STATUS COMMAND TEST 


SAAR AAR AEA EERARA REAR EKKERRER REE 


DOSTAT: MOV MDODUN,DODISP  ;POINT TO DONE 


ar #<RSTAT! IE>,RXCS :DO0 READ STATUS COMMAND 


SL AAR AERA RARER RERERERERAAERERAERAREERRAERERERRAERAERERERER EEE 


;HANDLER TO START INVALID ADDRESS TESTS 


Meritt iii titi iit titi iii itiiiiiitiiiiiitiiiiiiiiiiiiiiiii iii 
DOINV: MOV #DODUN,DODISP ;POINT TO DONE 
a4} #<WSEC'IE>,RXCS :DO WRITE SECTOR COMMAND 


Peete iii iii iii iiitiiiiiiiiiiiitiiiiiiiiiiiiiiiiiii ii 
“HANDLERS TO FINISH INITIALIZE, RESTORE, WRITE DELETED DATA, 
;READ STATUS & INVALID ADDRESS TESTS. 


PPSTTTITITTITITITITITITITT TLL TLL LL LLL LLL LLL LLL LEE 


DODUN: INC FIN SET DONE FLAG 

at #1E,RXCS DISABLE FURTHUR DX0 INTERRUPTS 
DIDUN: INC FIN 

alt M<IE!DX1>,RXCS 


SEQ 0077 
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000100 
002656 
002660 
003132 
003134 
100000 
014726 


000121 
177172 


002656 


002660 
177174 
014762 
000125 


013046 
177170 


013046 
177170 
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J SAAR AAA AERA ARAAARERAEEAAAEAAARAARAARAREREEHEAERAAEEAAAREEHEEE 


; HANDLER TO FILL THE DRIVE BUFFER FOR Dx! 
;&@ POINT TO THE WRITE SECTOR HANDLER, 


EIT iii iti 
DIFBUF: MOV #100,R3 ;WORD CT 

MOV DITRK,R1 

SWAB 1 


R 
BIS DISEC,R1 


te ;DONT SET BIT15 IN COMPATABILTIY TESTS 
COMP2 


2$ 
#B1T15,R1 ;TO DISTINGUISH DX1 DATA FROM DxXO DATA 


#DIWSEC,DIDISP ;POINT TO WRITE SECTOR AFTER RTI 
#<FRUF ! ITE 'DX1>, RXCS ; ISSUE FILL BUFFER CMD 
R1,RXDB sFILL ENTIRE SECTOR WITH ITS ADDRESS 
3 7@ BIT 15 SET 


'WeAABRARAAARAAAARARELERRRRAAASARESARR RRR RAR RRR RRR RRR RR RRS ERASED SS 


SHANDLER TO WRITE THE SECTOR FOR DX1 & POINT TO WRITE CHECK. 


'WEeARRARAAASRASAASLLALSLESASASLERERER ESLER ESR RRR R ERR R RRR RR RRR RR RRR EE SO | 


DIWSEC: MOV DITRK,R1 
SWAB R1 


DISEC,R1 

R1,RXSA ;LOAD TRACK & SECTOR ADDR 

#DIWCHK ,DIDISP ;POINT TO WRITE CHECK HANDLER 
M<WSEC! IE!DX1>,RXCS : ISSUE WRITE SECTOR COMMAND 


SEQ 0078 
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AARC IUISOII IIIS IOIIIOIIISIIIDIUIDIOIOIIOIIIIUIOIIOII OI IOI 
HANDLER TO WRITE CHECK ON DX1. 
WILL GO TO FILL BUFFER TO DO SAME SECTOR ON SOFT ERROR 
OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 
WILL GO TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 
ZA RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


DDRII AICO IIOIIIIDISIIIIOI IOI IOIOIIIOIOIOIOIOIOIIOI TOI TOI TOTTI TTT T OT OTT TOT TO 

014762 177170 DIWCHK: TST RXCS 2 pe 
0147 BPL 1$ N NO 

002654 000012 DIERR,#10. 10 ERRORS? 

6$ :BR IF NO & TRY AGAIN 
011672 PC,LD1BAD ;LOAD BAD TRK/SEC TABLE 
000020 013052 ARNF , SRXES :SEEK ERROR? 
7$ BR IF NO 
; HARD SEEK ERROR WRITE SECTOR 


70 
015074 013046 #23 .D ;RET TO 2$ AFT RESTORE 
000137 177170 PeRESTOR! 1E!DX1>~ RXCS 


24 HARD ERROR WRITE SECTOR 
2s :GO TO NEXT SECTOR 
002654 3 ™ aa ae to ERRORS? 
026054 TSERR ; TOTAL SOFT ERR CT 
026060 PSERR :PASS SOFT ERR CT 
000020 013052 ARNF , SRXES SEEK ERROR? 
8$ :BR_IF NO 
:;SOFT SEEK ERROR WRITE SECTOR 
000401 BR 
015072 : SOFT ERROR WRITE SECTOR 


015074 002654 : DIERR 
002660 000031 wet as 2 og Ay SECTOR? 


:BR_IF NO 
000002 002660 + Nina ELSE DO EVEN SECTORS NOW 
002660 000032 : Gist Soe ay es SECTOR? 


:BR 
000002 002660 #2 ,D1SEC sELSE BUMP SECTOR 
014642 : D1FBUF :GO TO FILL BUFFER & DO ANOTHER 


002660 : #1 ,DISEC sALL SECTORS DONE...CHECK DATA 
DIERR 
D1CMER 


000001 
002654 
002662 
015216 DIRSEC :GO TO READ SECTOR HANDLER 


002654 : DIERR 
000020 013052 owe es SEEK ERROR? 


BR IF NO 
014642 013046 ADIFBUF ,DIDISP ;RET TO FILL BUFF AFT RESTORE 
018514 000137 177170 #<RESTOR! IE !DX1>,RXCS 
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J FERRARA ERE REE EERE EKER EREERKEEEREKKEKEEEREREREREREEREK 


HANDLER TO READ A SECTOR ON DX1 & POINT TO CHECK. 


DISS ISISISIOIIOIISIOISISISIOIOIOIOITISIOII IOI OT OTT OT TOOT TTT TEE TET TEE EE EE 
015216 013701 002656 DIRSEC: MOV DITRK,R1 
SWAB R1 


000301 
053701 002660 DISEC,R1 
010137 177174 R1,RXSA ;LOAD TRK & SECTOR ADDR 


012737 015252 013046 #DIRCHK,D1IDISP :POINT TO READ CHECK HANDLER 
015550 AE OL 000127 177170 #<RSEC! TE !DX1>,RXCS ISSUE READ SECTOR COMMAND 


FPR IIRC ICICI III IOI AIA IAI IIS IAI SSIS ISAS AS SASASSAIAASASSAIASAI SAAN. 
SHANDLER TO READ CHECK ON DX1. 

;WILL GO TO NEXT SECTOR/TRK IF HARD ERR 

;WILL GO TO EMPTY BUFFER IF NO ERROR OR OSOFT ERROR. 

;WILL GO TO READ SECTOR (SAME) ON ERROR. 

zA RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


FERRER EKEEKKKEEEKEKEEEEEEKKEKREEEEEKEKEEKEKEEEEKEKEEEEEEEEKEEEREEEEKE NH 


015252 177170 DIRCHK: TST RXCS 7 ERROR? 
BPL 1$ :BR IF NO 
002654 000012 eas ata 210 ERRORS? 


BR IF YES 
002654 DIERR sELSE TRY AGAIN 
000020 013052 = SEEK ERROR? 


;BR IF NO 
015216 013046 ADIRSEC,DIDISP ;ELSE DO RESTORE & RET TO RD SEC 
018320 000137 177170 AM<RESTOR! IE!DX1>,RXCS 


015322 011672 : PC,LD1BAD ;LOAD BAD TRK/SEC TABLE 
000020 013052 oe 7SEEK ERR —s 


BR IF 
72 HARD SEEK ERROR DURING READ 


012737 016206 013046 ADINEXT,DIDISP ;DO RESTORE 
012737 000137 177170 #<RESTOR! IE !DX1>,RXCS 
015354 000002 


015356 032737 000010 013052 : #CRC,SRXES :CRC ERROR? 
015364 001404 10$ 


BR IF NO 
015366 005237 002672 INC DICRC ELSE SET FLAG 
015372 104111 111 HARD CRC ERROR 
015374 000423 BR 2s :& GO TO EMP BUFF TO CHK DATA 


015376 005037 002672 : DICRC 
104026 6 HARD READ ERROR 
000137 016206 MP DINEXT 
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CVKDAA.M11 INTERRUPT HANDL SEQ 0081 


015410 002654 1$: DIERR sANY PREV ERRORS? 
2$ ;BR_IF NO 


026054 TSERR ‘TOTAL SOFT ERR CT 
026060 PSERR “PASS SOFT ERR CT 
000020 013052 #RNF » SRXES i SEEK ERROR? 


;BR IF NO 
es ie ;SOFT SEEK ERROR DURING READ 
015442 : 27 ;SOFT ERROR READ SECTOR 


015444 002654 : DIERR 
015450 015454 D1EBUF :GO TO EMPTY BUFFER 


FIR IR ICICI IOI IORI RI II IIIA AAAI III IIAIISIAIISISIIIISASSIASIASASASSISSSSI SAM. 
; HANDLER TO EMPTY THE DRIVE BUFFER FOR DX1 
;& POINT TO THE CHECK DATA HANDLER. 


J AREER EEK EEE KERR KEKRKKEKEEKEEEEKEKEEKEEREKEREE 


015454 012703 000100 DIEBUF: MOV #100,R3 z:WORD CT 
MOV #D1BUF ,R1 ;BUFFER ADDRESS 
013046 #DICDAT,DIDISP ;POINT TO CHK DATA AFT INTER. 
177170 #<EBUF ! 1E!DX1>,RXCS ; ISSUE EMPTY BUFFER CMD 


177172 1$: “ges cage GET WORD & STORE IT 
1$ 


015510 
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012703 
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002662 
000100 
002656 
002660 
003132 
003134 
100000 
002674 


002666 
002670 


002662 © 


000002 


002662 
002672 


002664 


002672 


002664 


026054 
026060 


000012 
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IRAE III IOIIIOIISIOIIIDIIIOI IOI TOTTI TOT TOIT TOT TTT TT TT EE EE 
; HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DX1. 

;WILL GO TO NEXT SECTOR HANDLER WHEN NO ERR OR HARD ERR. 

;0R TO READ SECTOR (SAME) WHEN SOFT ERR. 

Stee ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


FREER REE EKER EEE EERE ERE EKER KEKE EERE KEKE REE KEE 


DICDAT: CLR 
MOV 


DICMER 


R1 
DISEC,R1 
COMP1 

6$ 

COMP2 

6$ 
#B1T15,R1 


#D1BUF ,R2 
R1,(R2) 
2$ 


R1,D1EXP 
(R2) ,DIREC 


z:WORD CTR 


DONT SET BIT15 IN COMPATABILITY TESTS 


;TO DISTINGUISH DX1 DATA FROM DXO DATA 


:GET BUFFER ADDR 
COMPARE OK? 

SBR IF YES 

sELSE SAVE 


zANY COMP ERR? 

3;BR IF NO 

sHERE FROM CRC ERROR? 
;BR IF NO 

;DATA CRC ERROR 

sELSE, 10 ERRS YET? 
;BR IF NO 

;HARD ERROR DATA COMP 


sHERE FROM CRC ERROR? 
;BR IF NO 

:CRC ERR WITH DATA OK 
sANY ERR? 

TOTAL SOFT ERR CT 


zPASS SOFT ERR CT 
;SOFT ERROR DATA COMP 
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015702 005037 5$: CLR DICERR 
015706 005037 CLR DICRC 
015712 000137 JMP DINEXT 


015716 005237 7$: INC DICERR 
015722 000137 015216 JMP DIRSEC READ SECTOR OVER AGAIN 


SR IORI IORI IIIA IDSA AIS IISNASIISISSISSISSSASSSSASSSASSSSAS 
“HANDLER TO SETUP NEXT SECTOR/TRACK FOR DX1. 

zWILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
[WILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
;WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


Z3 RK KEEEEREKEKKEEKKEKEEEEEKREKERKEKKKKEKEKKKEKKRKEKKKKEKKEKRKKEKEKKEKK 


015726 002654 DINXT1: CLR DIERR 
CLR D1CMER 
000031 D1SEC 431 LAST ODD SECTOR? 
1$ :BR IF NO 
002660 #2,D1SEC sELSE DO EVEN SECTORS NOW 
000032 : DISEC 432 LAST EVEN SECTOR? 
3$ BR IF YES 


002660 #2,D1SEC :ELSE BUMP SECTOR 
015216 : DIRSEC :GO READ SECTOR 


010000 163132 : ~ wlecenmans :SKIP TYPEOUT IF NOT SET 
017103 -DRV1 
017551 -TRK 
002656 MO DITRK,~(SP) 7sSAVE DITRK FOR TYPEOUT 
3:GO TYPE--DECIMAL ASCII WITH SIGN 
017622 , DUN 
2 FIN 2 SETUP TO 3 TO Dx0 
003124 1 a tc TRACK? 


002656 D1TRK 
000001 002660 + adidaat SINIT SECTOR 


010000 163050 t sortie am SKIP TYPEOUT IF NOT SET 


017103 -DRV1 
-PATT 


’ 


: D1PAT :PATT DONE F 
016120 000120 177170 : AM<IE!DX1>,RXCS ;DISABLE DxT- INTERRUPTS 
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016122 


003126 
162760 


017103 
017571 


177170 


023727 003120 000001 
001644 
016216 000741 


G 
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JF EAE EE ERE EKER EERREREEKREE 


:HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DX1. 


J EAA EEE REE EERE EERE 


DINXT2: CLR 
CLR 


DINEXT: 
BE 


;SETUP TO GO TO Dx0 
D1CNT 
D1CNT ,MAXSK ;DID ALL SEEKS? 
$ ;BR IF NO 
~ ‘heen ;SKIP TYPEOUT IF NOT SET 


,DRV1 
»RANDOM 


~DUN 
M<IE!DX1>,RXCS ;DISABLE DX1 INTERRUPTS 


DXTST,A1 
DINXT1 
DINXT2 
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EEUU ISIS ISISUIEISISIISISI ISI UIOISIIISISIIISIIIISIIOIOIISIOIIIIOIOIOI III ITO 

THE FOLLOWING CODE, UP TO THE PROGRAM MESSAGES, IS A UTILITY TO COPY 
ZTHE DISKETTE CONTAINING ONLY THE BOOT & THE EXERCISER FROM DXO TO Dx1. 
:THE OPERATOR CAN TYPE 'P' TO DO ANOTHER COPY OR 
:TYPE *240G* TO ENTER NORMAL TESTING. 
ENTIRE CODE, INCLUDING TEXT & ERROR TABLE, IS 400(10) WORDS. 


25 PRARSSESSSALASALSLEAESARARSALALAR SALAS SELES ERAS RARER AAAS AS SSS SD SY 


016220 005037 003130 COPY: CLR COPFLG ;DONT NEED FLAG ANY MORE 
020021 -COPMSG INSERT SCRATCH IN DX1 & TYPE P 
[WAIT FOR PROCEED 


016232 016540 PC,GETSEC ; CALCULATE MAX SECTORS TO BE COPIED 


016236 016532 ERFLG : INITIALIZE 

016242 016534 #1, TRACK 

016250 016536 #1,SECT 

016256 177170 RXCS ;DONE? (CTL RDY) 
016262 74 ;BR IF NO & TRY AGAIN 


016264 016610 : R5,RDWR sREAD Dx0 
016270 000007 


016272 177170 RXCS ERROR? 
2s BR IF NO 
016532 


ERFLG 
016532 000012 “Pepemienss 310 ERRORS? 


$ :BR IF NO & TRY AGAIN 
100 ZHARD ERR READ SECTOR DXO 

016320 BR 72 ;FORCE A RESTART FROM 250 

016322 005037 016532 L ERFLG 

016326 004537 016650 RS , BBUF F ;EMPTY BUFFER INTO DOBUF 

016332 002424 DOBUF 


004537 016610 ; J R5,RDWR WRITE DX1 
000025 <WSEC !DX1> 


005737 177170 RXCS ERROR? 
4$ :BR IF NO 
016532 ERFLG 
016532 000012 ERFLG,410. 310 ERRORS? 
3$ ;BR IF NO & TRY AGAIN 
101 HARD ERR WRITE SECTOR DX1 


016366 000000 
016370 72 FORCE RESTART AT 250 
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016372 016532 4$: CLR ERFLG 
004537 0146610 RS,RDWR ZREAD Dx1 
<RSEC !DX1> 


177170 RXCS ; ERROR? 

5$ :BR IF NO 
016532 ERFLG 
016532 000012 aoe ata 310 ERRORS? 


;BR IF NO & TRY AGAIN 
103 HARD ERR READ SECTOR DX1 


72 sFORCE 250 RESTART 
016650 : JSR * ceaeanatel sEMPTY BUFFER INTO D1BUF 


016712 PC ,DATCHK COMPARE DOBUF WITH D1BUF 
016530 SECCNT TOTAL DONE 


023737 016530 016526: SECCNT ,MAXSEC :DID TOTAL # SECTORS? 
001415 8$ 7;BR IF YES 


023727 016536 000032 SECT #32 :ELSE DID WE DO LAST SECTOR ON TRACK? 
016536 SECT ZELSE BUMP & DO ANOTHER 


016534 6$: TRACK ;BUMP TRK 
000001 016536 #1,SECT INIT SECTOR 
016512 000664 1$ :& DO ANOTHER 


016514 020122 : . COPDUN :DONE MSG 
016520 000000 
016522 016220 COPY DO AGAIN IF 'P* TYPED 


016526 : TOTAL # SECTORS TO READ FROM Dx0 
: TOTAL # SECTORS WRITTEN TO Dx1 
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016540 


016554 
016560 
016562 
016564 
016566 
016572 
016576 


016602 
016606 


MACY11 27(654) 


INTERRUPT HANDLERS 


010037 


005037 
000207 


013700 
000300 


026616 


000377 
000377 


000074 
000010 


016526 


016530 


016534 


016536 
177174 
177170 
011442 
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SEQ 0087 


MOR AASRARAAASLAALASASALASE SAS AALALA ARES ALARA RSE AR ARRAS R SARS A RASS E SS DI 


*ROUTINE TO CALCULATE THE MAX # OF SECTORS TO READ FROM DX0 


ZL RARER ERE REE RE ERK ERR EKER EEE EERE EERE ERE ERE REE 


GETSEC: MOV 
ASR 


CLR 
RTS 


AMLSTAD ,RO 
RO 


RO 
#377 ,RO 
#377 ,RO 


#<15.%*4>,R0 
# 0 


*¢e 


RO .MAXSEC 


SECCNT 
PC 


GET MAX ADDR 
GET WORD CT 
:DONT LOOSE ANY 


ROUND OFF TO NEAREST WHOLE WORD 


;DIVIDE BY 100(8) FOR SECTOR CT. 


sADD SECTOR CT FOR BLOCKS O - 14 OF DxO 
2 MORE BLOCKS (NECESSARY FUDGE FACTOR) 


7; SAVE 

;THIS IS THE MAX SECTORS WE WILL READ OFF Dx0O 
:& WRITE TO DX1 STARTING AT TRK 1, SECT 1 
;COUNT OF TOTAL SECTORS WRITTEN TO Dx1 


FREER ERE KEKE EERE EER RRR EERE EEE EKER KEE EEE EKER EKER ERE 


sROUTINE TO READ OF WRITE DXO OR DX1 
=R5 POINTS TO THE COMMAND 


& DISK # 


FARRER ERE EEE EERE EEE EEREEEKEKEKEEEKREE KEK 


RDWR: 


TRACK ,RO 
RO 

SECT RO 
RO,RXSA 
(R5)+,RXCS 
R5,TIMER2 
75 


R5 


;LOAD TRK/SEC 
: ISSUE COMMAND 
WAIT FOR DONE 


NO DONE 


K 
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DDO AGRI IIIS IOISISIOIIUIDIOIUISIOIOIIOISIOIIOIOIIOITI IOI TOTTI TTT I oI TE TE 
;ROUTINE TO EMPTY BUFFER INTO DOBUF OR D1BUF 
RS POINTS [0 IT 


FARRER EERE REE EKER EERE EERE REREKKERERERERERREKEEEER 


000100 EBUF F : #100,R0 wD CT 

MO (R5)+,R1 ZBUFFER A ADDR 
000003 177170 MEBUF ,RXCS ; ISSUE EMPTY BUFFER COMMAND 
177172 1$: MO ~ oechonici :PUT IT IN TABLE 


BN 1$ 
011442 RS, TIMER2 WAIT FOR DONE 


75 NO DONE 
000000 
016710 R5 


J FREER ERK EEEER REE REE RRR EERE REE EERE REE EH 


ROUTINE TO COMPARE DOBUF WITH D1BUF 


FS REAR RE RAKE EREEEKEKEKEEREREEEEREKEEKEEEE EEE KREEEEE 


016712 000100 DATCHK: MOV #100,R0 :WD CT 
002424 MOV 
002674 


ee 2 
1$: ; ; COMPARE ? 


:BR IF YES 
MI SCOMPARE 


016740 005300 
016742 001371 
016744 000207 
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-SBTTL PROGRAM MESSAGES 
DBR AI SOI ISIIUIEIISISIIOIIIID III IOIIUIIUR Or ir ittttt 


; MESSAGES & ERROR FORMATS 


FERRARA AR AAAAEAKERAE REAR ERE RARER RARER EEE 


052514 052123 CLOPT: .ASCIZ <CRLF>/CLUSTER OPTION/ 
047440 052120 


000116 
wal 020115 CLT1: eASCIZ <CRLF>/TERM #1/ 
046522 (CLT2: eASCIZ <CRLF>/TERM #2/ 
020115 CLT3: eASCIZ <CRLF>/TERM #3/ 
eASCIZ <CRLF>/SYNC COMM/ 
eASCIZ <CRLF>/ASYNC COMM/ 
-ASCIZ <CRLF>/PRINTER/ 
047520 / PORT TESTED/ 
051505 
030130 000 : , <CRLF >/DX0/ 

: <CRLF>/DX1/ 
<CRLF>/CLOCK/ 
<CRLF>/4K/ 
<CRLF>/8K/ 
<CRLF>/12K/ 
<CRLF>/16K/ 
<CRLF>/20K/ 
<CRLF>/24K/ 


<CRLF>/30K/ 
/ MEMORY PRESENT/ 


NOTPRES: -ASCIZ / NOT PRESENT/ 


WARNING: eASCII <CRLF><LF>/INSERT SCRATCH DISKS, TYPE "P* FOR NORMAL TESTING/ 


65 
051505 
043460 ° <CRLF>/*240G" FOR NORMAL RESTARTS/ 
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020122 


<CRLF>/*"250G' TO COPY SYS EXERCISER DISK/ 


<CRLF>/*260G* FOR COMPATABILITY PASS 1: WRITE/ 
<CRLF>/'270G* FOR COMPATABILITY PASS 2: READ/ 


/ TESTING DROPPED/ 


/ RUNNING/ 
/ OK/ 
-ASC / TRK/ 
eASCIZ / DATA PATT/ 
: .ASCIZ / RANDOM SEEKS/ 
: .ASCIZ <CRLF>/MEM TESTS/ 
-ASCIZ / DONE/ 
-ASCIZ <CRLF><LF>/END PASS #/ 


ASCIZ / TOTAL ERRORS: 


eASCIZ <CRLF>/ TOTAL SOFT ERRORS: 


005200 052011 <CRLF ><LF >/ TOTAL ERRORS THIS PASS:/ 
0521 042440 
017744 0511 051117 020123 
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017752 


PDT=11 EXERCISER 
VKDAA.M11 


051 
042 


MACY11 27(654) 
AM MESSAGES 


0 
526 


051 


051440 


052123 
050115 


054522 
047505 


042040 
047503 
051122 
020103 


4505 
047131 


20-SEP-78 


MSG4: 


COPMSG: 


DE VM: 
EM1: 


EM2: 


EM3: 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIZ 


ASCII 


-ASCIZ 
-ASCIZ 


eASCIZ 


-ASCIZ 


N 
10:40 PAGE 91 


<CRLF >/ SOFT ERRORS THIS PASS:/ 


<CRLF>/COPY DXO TO Dx1/ 


<CRLF>/ INSERT SCRATCH DISK IN DX1, TYPE ‘P* TO PROCEED/ 


<CRLF>/DONE...TYPE °P' TO DO AGAIN OR *240G* FOR NORMAL TESTING/ 


<CRLF ><LF>/COMPATABILITY PASS 1 (WRITE) DONE/ 


<CRLF>/DO *P* FOR PASS 2 (READ)/ 


<CRLF>/DEVM = / 
/MEMORY TIMEOUT/ 


/MEM DATA COMP ERR/ 


/SYNC COMM DID NOT RECEIVE SYNC CHAR/ 
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CVKDAA 


020103 
000 


040524 


MACY11 27(654) 
MESSAGES 


044103 
044522 


4 
051440 
020123 


047503 


0 
04 030130 


041440 


051101 
052116 
040524 
051105 
021440 
040524 
020120 
021440 
040524 
020120 
021440 
040524 
020120 


020103 


051122 
020103 


051122 
050130 
020113 
051122 


051127 
051105 


040510 


052103 
051440 


050115 
051440 


046517 


20-SEP-78 

EM4: -ASCIZ 
EMS: -ASCIZ 
EM6: eASCIZ 
EM7: -ASCIZ 
EM8: -ASCIZ 
EM9: -ASCIZ 
EM10: .ASCIZ 
EM11: .ASCIZ 
EM13:  .ASCIZ 
EM14:  .ASCIZ 
EM15:  .ASCIZ 
EM16: .ASCIZ 


B 
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/PRINTER STATUS ERR/ 


/TERM #1 DATA COMP ERR/ 


7TERM #2 DATA COMP ERR/ 


/TERM #3 DATA COMP ERR/ 


/ASYNC COMM DATA COMP ERR/ 


/SYNC COMM DATA COMP ERR/ 


/UNEXP DISK INTERRUPT/ 


/DXO WRITE ERR/ 


/DX0 HARD ERR 


READ SECT/ 


/DXO SOFT ERR 


READ SECT/ 


/DXO HARD ERR - DATA COMP/ 


/DXO SOFT ERR 


DATA COMP/ 


SEQ 0092 
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EM17:  .ASCIZ /DX1 HARD ERR = WRITE SECT/ 
/DX1 SOFT ERR = WRITE SECT/ 


/DX1 HARD ERR = READ SECT/ 


052103 
051440 : /DX1 SOFT ERR = READ SECT/ 


/DX1 HARD ERR = DATA COMP/ 
042040 
047503 050115 
030530 051440 : /DX1 SOFT ERR = DATA COMP/ 
, 051105 
040504 
041440 046517 
020113 052510 : /CLK HUNG/ 
000 


044522 052116 : /PRINTER HUNG/ 
044040 047125 


046522 021440 : /TERM #1 HUNG/ 
052510 043516 


051105 020115 : /TERM #2 HUNG/ 
044040 047125 


046522 021440 . os /TERM #3 HUNG/ 
052510 043516 


047131 020103 Ps 7SYNC COMM HUNG/ 
044040 


020103 . /ASYNC COMM HUNG/ 
044040 


052510 ew /DX0 HUNG/ 
021436 000 
021441 104 030530 044040 t /DX1 HUNG/ 
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021446 
041440 EM32: .ASCIZ /SYNC COMM = DATA NOT AVAIL NOT SET/ 


/SYNC COMM = RECVR ACTIVE NOT SET/ 


/SYNC COMM = RECVR DONE NOT SET/ 


051440 052105 
030130 023440 ag "DEL DATA* BIT 5 NOT SET IN RXES/ 


051040 042530 
020060 047111 : INIT CMD DID NOT READ TRK 1, SEC 1/ 


041505 
051040 - RESTORE CMD ERR/ 
042522 
042440 


023440 es "INIT DONE’ BIT 0 NOT SET IN RXES/ 


054122 
051040 As READ STATUS CMD ERR/ 


051122 
044440 $s INV ADDR BIT 1 NOT SET IN RXES/ 


02006 
022102 042523 020124 047111 
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022110 


0 
051122 


MACY11 27(654) 
MESSAGES 


030530 
020104 
042440 
051040 
042523 


030530 


030530 
047524 
042115 

000 


000123 


052103 
051440 
2523 


052103 
044040 


041505 
047523 


052103 
051440 


052103 


051040 
042522 
042440 


E 
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EM41: .ASCIZ /DXO ERR BIT NOT SET 


CMD ERR/ 


ERR - WRITE 


SEEK ERR 


SEEK ERR 


SEEK ERR 


SEEK ERR 


SEEK ERR 


SEEK ERR 


RESTORE CMD ERR/ 


IN RXCS/ 


SECT/ 


READ SECT/ 


READ SECT/ 


WRITE SECT/ 


WRITE SECT/ 


READ SECT/ 


READ SECT/ 
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022537 104 051511 020113 EMS2: .ASCIZ /DISK "DONE" NOT SET/ 
ay Bee 


020114 EM53: .ASCIZ /FILL & EMPTY BUFF TEST... DATA MISCOMP/ 


046440 /DATA MISCOMP/ 
050115 
040514 : /REPLACE DX0...10 BAD SECTORS/ 


/REPLACE DX1...10 BAD SECTORS/ 


/DXO HARD CRC ERR/ 
/DxXO DATA CRC ERR/ 
/DXO PREV CRC ERR WITH DATA OK/ 


020101 045517 


030530 044040 _ /DX1 HARD CRC ERR/ 
020104 
/DX1 DATA CRC ERR/ 


/DX1 PREV CRC ERR WITH DATA OK/ 


020101 045517 


2 
023140 
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023141 051122 051117 DH: -ASCIZ /ERROR ERR PC/ 
2411 051122 


020122 Dk: eASCIZ /ERROR ERR PC ADDR/ 


105 
021440 


DH3: eASCIZ /ERROR ERR PC ADDR EXPECT RECVD/ 


PR STATUS/ 
050011 
052101 051525 
051122 051117 : EXPECT RECVD/ 


DXTST# RXCS RXES 


042530 
054122 040523 


051122 051117 : DXTST# RXCS RXES TRACK SECTOR # RETRIE 


004522 
051124 . 
051524 : /DXTST RXES RXSA EXPECT RECVD # RETRIES 


020040 

020104 

052105 044522 
023556 000 


023560 
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026050 000000 DTI: «WORD ERRNUM,$ERRPC,0 
004436 DT2: -WORD ERRNUM,SERRPC,ADDR,0 
004436 DT3: ‘ ERRNUM, SERRPC ,ADDR,PAT ,MEMHLD ,0 
O1oiee DT4: . ERRNUM, S$ERRPC ,SPRS ,0 
012244 DTS: . ERRNUM, SERRPC,T1CHR,T1HLD ,0 
012344 DT6: . ERRNUM, SERRPC ,, T2CHR, T2HLD ,0 
012444 DT7: , ERRNUM, SERRPC ,T3CHR, T3HLD,0 
012544 DT8: . ERRNUM, SERRPC , COMCHR, COMHLD , 0 
001116 DT9: et ERRNUM,DXTST,$ERRPC ,SRXCS,SRXES,SRXSA,0 


013054 

001116 DT10: . ERRNUM,DXTST,SERRPC,SRXCS,SRXES ,DOTRK ,DOSEC ,DOERR,O 
DT11: DXTST,SERRPC ,RXCS,RXES,RXSA,DOEXP,DOREC ,DOCERR,O 
eTid: =. ERRNUM,DXTST,SERRPC,SRXCS,SRXES,D1TRK,DISEC,DIERR,O 


DT13:  . DXTST,,SERRPC,,RXCS,RXES,RXSA,DIEXP,D1IREC,DICERR.O 


D114: ‘ ERRNUM,DXTST,SERRPC ,RXCS,RXES,RXSA,0 


177172 «177174 


oe 006274 DT15: ERRNUM, SERRPC ,EXPO,EBHLD ,0 
001116 006276 DT16: . ERRNUM, SERRPC ,EXP1, EBHLD .0 
024056 006272 000000 


024062 000000 : ° sOCTAL FORMAT FOR ALL 
024064 
024066 


024070 000000 : . sOCTAL ,OCTAL 
. :OCTAL ,OCTAL 
DECIMAL ,OCTAL 
DECIMAL ,DECIMAL 


sOCTAL ,OCTAL 
OCTAL.OCTAL 
OCTAL ,OCTAL 
:DECIMAL ,OCTAL 
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-SBTTL TYPE ROUTINE 


se FREER KEKE EERE KR IE KE E KR EKREKEEEKEKEKEEEEEREEKKK EEK 

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

3*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

: *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
> *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

3 *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

-* 


2 


> *CALL 
141) USING A TRAP INSTRUCTION 
te TYPE ,MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
ME SADR 


024110 105737 001157 : $STPFLG 231S THERE A TERMINAL? 
BP 1$ ::BR IF YES 


2 ¢HALT HERE IF NO TERMINAL 
AVE 


3$ 
; RO,~(SP) sSAVE RO 

000002 @2(SP) ,RO £368 ADDRESS OF ASCIZ STRING 
000001 001210 #APTENV, SENV UNNING IN APT MODE 

62$ ENO. GO CHECK FOR ¥: oe 
000100 001211 #APTSPOOL.SENVM ::SPOOL MESSAGE TO AP 

62$ Nef GO CHECK FOR CONS SOLE 
024160 RO,61$ #SE TUP MESSAGE ADDRESS FOR APT 

poe TO APT 


025242 J PC, $ATY3 


61$: . WORD ie DRESS 
000040 001211 : M#APTCSUP,SENVM =; ;APT CONSOLE SUPPRESSED 
BN 60$ Z:YES,.SKIP TYPE OUT 

(RO) +,~-(SP) ;=PUSH CHARACTER TO BE TYPED A - STACK 
4$ :-BR IF IT ISN'T THE TERMINA 
(SP)+ 331F TERMINATOR POP IT OFF THE STACK 
(SP)+,RO ; RESTORE RO 
#2, (SP) fay od RETURN PC 


mit (SP) _ SBRANCH IF <HT> 
CRLF » (SP) BRANCH IF NOT <CRLF> 


(SP) + 3zPOP <CR><LF> emule 
:zTYPE A CR AND L 


024366 —_— 3 ; CLEAR CHARACTER COUNT 


BR 
024322 : PC ,STYPEC s3 CTER 
001156 : $FILLC, (SP)+ ; 71S IT TIME FOR A gr CHARS .? 
2$ ;;IF NO GO GET NEXT CHAR, 
024252 013746 001154 $NULL ,~ (SP) GET # OF FILLER CHARS. NEEDED 
D THE NULL CHAR, 
024256 105366 000001 2 1(SP) ; :DOES A NULL NEED TO BE TYPED? 
024262 002770 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
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024264 004737 024322 JSR PC, ohn +360 TYPE A NULL 
024270 024366 DECB $CHARCNT :DO NOT COUNT AS A COUNT 
024274 70 BR 7$ ; LOOP 


;HORIZONTAL TAB PROCESSOR 


024276 8$: #* (SP) 7sREPLACE TAB WITH SPACE 
004737 9$: PC, $TYPEC :-TYPE A SPACE 
024366 #7 ,SCHARCNT ; sBRANCH IF NOT AT 
9$ 32TAB STOP 
(SP) + :sPOP SPACE OFF STACK 
BR 2$ 3:GET NEXT CHARACTER 
154622 STYPEC: - sas J 7zWAIT UNTIL PRINTER IS READY 
009002 154614 2(SP) ,a$TPB ht: CHAR TO BE TYPED INTO DATA REG. 
000015 000002 > ital iS ge Ne A CARRIAGE RETURN? 


H IF 
024366 :ZYES-=CLEAR CHARACTER COUNT 
000012 000002 1$: ALF ,2(SP) 2215S CHARACTER A LINE FEED? 
$TYPEX IF YES 
INCB (PC)+ 33 CTER 
02 000000 $CHARCNT:.WORD 0 ::CHARACTER COUNT STORAGE 
024370 $TYPEX: RTS PC 
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PDT-11 EXERCISER 
CVKDAA.M11 SEQ 0101 
-SBTTL TTY INPUT ROUTINE 


33 KERR KEKEKEEEREEEREEEEEEEKEKRREKKEREEREKEEEE 


“ENABL LSB 


FSSA IO IOI IOI IOIOII IOI III III OTTO TATRA TSAI IAA ISA ISAS ISAS SAAS 

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

: *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG MODE. 


024372 022737 000176 001140 SCKSUR: CMP eae 


024470 


024472 
024476 


024502 


024562 
024566 
024570 


117746 
042716 


021627 


021627 
001022 
005766 


154536 
154532 
177600 
000007 
001134 
025204 
025211 
000176 


025222 
154454 
154450 
177600 
000003 
025172 
000006 
001135 
000100 
010760 
000025 


025177 
000006 


000015 
000004 


000001 


000001 
154406 


a$TkKS 

15$ 
@$TKB,-(SP) 
#*C177, (SP) 
#7, (SP)+ 
15$ 


$AUTOB 41 
15$ 


-SCNTLG 

. SMSWR 
SWREG,~ (SP) 
- SMNEW 
-(SP) 

~(SP) 

a$TKS 

7$ 


a$TKB,-(SP) 
#°(177, (SP) 


(SP) ,A3 
9$ 

-SCNTLC 
#6,SP 
SINTAG,#1 
8$ 

#100, a$TKS 
GT$DEV 


(SP) ,425 
10$ 
-$CNTLU 
#6,SP 
19$ 

(SP) 415 
16$ 

4 (SP) 


22S THE SOFT=-SWR SELECTED? 
;BRANCH IF NO 
13 CHAR THERE? 
F NO, DON'T WAIT AROUND 
+ SAVE THE CHAR 
:zSTRIP-OFF THE ASCII 
3z1S IT A CONTROL G? 
:zNO, RETURN TO USER 
7ZARE WE RUNNING IN AUTO-MODE? 
; BRANCH IF YES 


7zECHO THE CONTROL-G (“G) 

72 TYPE CURRENT CONTENTS 

zsSAVE SWREG FOR TYPEOUT 

2260 or Pak tara — DIGITS) 


ERE? 
721F NOT TRY AGAIN 


3:zPICK UP CHAR 
3eMAKE IT 7-BIT ASCII 


22 IT A CONTROL-C? 
CH IF NOT 

SZ YES, ECHO CONTROL=-C (“*C) 
3zCLEAN UP STACK 
fet So KEYBOARD INTERRUPTS? 
;ZALLOW TTY KEYBOARD INTERRUPTS 
72 CONTROL=-C RESTART 
ei IT S CONTROL -U? 

;BRANCH IF NOT 
s3VES, ECHO CONTROL-U (“U) 

GNORE PREVIOUS INPUT 

SZLET* S TRY IT AGAIN 
::1S IT A <CR>? 
; BRANCH IF NO 
::YES, IS IT THE FIRST CHAR? 
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024574 


024712 


024714 


025022 


MACY11 —_— 


Y INPUT ROUTI 


001403 
000002 


009006 
001765 
001135 


000100 
024322 
000060 
000067 


000060 
000002 


000002 
177776 
001164 


000004 
154214 
154210 
177600 
000004 
154162 
154156 
177600 
000021 
000004 
000004 


154334 


000001 
154312 


000002 


000004 
000004 
000023 


000140 
000175 
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17$: 


18$: 
BR 
-DSABL LSB 


L 
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11$ 
2(SP) ,aSwR 
#6,SP 


$CRLF 
$INTAG, #1 


#100, a$TKS 


PC ,$TYPEC 
(SP) ,460 


18$ 

(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2(SP) 
~2(SP), (SP) 
7$ 

.SQUES 

20$ 


: ¢BRANCH IF YES 


D <LF> 
TTY KBD INTERRUPTS? 
NOT 
TTY KBD INTERRUPTS 


YES 
YES 
P-OFF ASCII 
HIS THIS THE FIRST CHAR 
CH IF YES 
:3NO, SHIFT PRESENT 
zz CHAR OVER TO MAKE 


:¢ __ROOM FOR NEW ONE. 
+ sKEEP COUNT OF CHAR 


22 TYPE ?<CR><LF> 
3zSIMULATE CONTROL-U 


FL RRR EKER EEE KERR EEREREREKEKREEREEEEEEEEEKRERKEE 


we ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RDCHR 
RETURN HERE 


(SP) ,~(SP) 
4(SP) ,2(SP) 
a$TKS 


1$ 
@$TKB,4 (SP) 


#*C<177>,4(SP) 
4(SP) 


M23 


3 

a$TKS 

2$ 
@$TKB,-(SP) 


#°C177, (SP) 
(SP) +, #21 
2$ 


1$ 
zine gee 
4(SP) ,#175 
4$ 


33 INPUT A SINGLE CHARACTER FROM THE TTY 
:=CHARACTER IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 


3zPUSH DOWN THE PC 
SAVE THE PS 
WALT FOR 
3A_CHARACTER 
TZREAD THE TTY 
coer RID OF JUNK IF ANY 
S_ IT A CONTROLS? 


CH IF NO 
WAIT FOR A CHARACTER 
¢7hovP UNTIL_ITS THERE 
; ¢GET CHARACTER 
MAKE IT 7-BIT ASCI! 
31S IT A CONTROL~Q? 
IF oy Ea IT 


33 ESUME 
71S IT UPPER CASE? 
BRANCH IF YES 

z21S IT A SPECIAL CHAR? 
;BRANCH IF YES 


SEQ 0102 
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CVKDAA.M11 TTY INPUT ROUTI SEQ 0103 
4752 025024 042766 000040 000004 BIC #40,4(SP) 7sMAKE IT UPPER CASE 
4753 025032 000002 4$: RTI GO BACK TO USER 
4754 FERRER EEE ERE REREEEREEEEKEEREREREEEEEREEEKEEERREE 
4755 [*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4756 >*CALL: 
4757 :* RDLIN 3 INPUT A STRING FROM THE TTY 
4758 :* RETURN HERE Heese te OF FIRST CHARACTER WILL BE ON THE STACK 
tts 3s 33 TERMINATOR WILL BE A BYTE OF ALL O'S 
4761 025034 010346 SRDLIN: MOV R3,~(SP) SAVE R3 
4762 025036 012703 025162 1$: MOV A#STTYIN,R3 sige ADDRESS 
4763 025042 022703 025172 2$: CMP #$TTYINGS. ,R3 or FULL? 
4764 025046 101415 BLOS 4$ : BR IF YES 
4765 025050 104410 RDCHR :GO_ READ ONE CHARACTER FROM THE TTY 
4766 025052 112613 MOVB (SP)+, (R3) 7:GET CHARACTER 
4767 025054 122713 000003 CMPB #3,(R3) 3:18 1T A CONTROL-C? 
4768 025060 001005 BNE 10$ : sBRANCH IF NO 
4769 025062 104401 025172 TYPE eSCNTLC 7:TYPE A CONTROL=C (“C) 
4770 025066 012603 MOV (SP)+,R3 3zRESTORE R3 
4771 025070 000137 010760 JMP GTSDEV ::GOTO yyy RESTART 
4772 025074 122713 000177 10$: CMPB #177, (R3) :2IS_ IT A RUBOUT 
4773 025100 001003 BNE 3$ zsSKIP IF NOT 
4774 025102 104401 001164 4$: TYPE . SQUES ssTWwe A *?" 
4775 025106 000753 BR 1$ T:CLEAR THE BUFFER AND LOOP 
4776 025110 111337 025160 3$: MOVB (R3) ,9$ :sECHO THE CHARACTER 
4777 025114 104401 025160 TYPE . 
4778 025120 122723 000015 CMPB #15, (R3)+ += CHECK FOR RETURN 
4779 025124 001346 BNE 2$ LOOP IF NOT RETURN 
4780 025126 105063 177777 CLRB -1(R3) 7:CLEAR RETURN (THE 15) 
4781 025132 104401 001166 TYPE - SLF tbs | A LINE FEED 
4782 025136 012603 MOV (SP)+,R3 7sRESTORE R3 
4783 025140 011646 MOV (SP) ,~(SP) : ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
4784 025142 016666 000004 000002 MOV 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
4785 025150 012766 025162 000004 MOV #STTYIN,4(SP) 
4786 025156 000002 RTI 3 sRETURN 
4787 025160 000 9$: -BYTE 0 ii STORAGE + ASCII CHAR. TO TYPE 
4788 025161 000 -BYTE 0 72 TERM 


INA 
4789 025162 000010 STTYIN: .BLKB_ 8, Hs Bo 7 BYTES FOR TTY INPUT 
4790 025172 041536 005015 000 $CNTLC: .ASCIZ /*C/<15><12> se we 

4791 025177 136 006525 000012 $CNTLU: .ASCIZ /*U/<15><12> £ CONTROL U" 

4792 025204 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> 3:CONTROL ‘'G’’ 

4793 025211 015 eae 051127 $MSWR: .ASCIZ <15><12>/SWR = / 


4794 
4795 025222 020040 042516 020127 SMNEW: .ASCIZ / NEW = 
4796 0252 000 
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~SBTTL APT COMMUNICATIONS ROUTINE 


MITITITITIITITITITITTITITITI LILI TITiTiTit TLL LiL EEL ELLE 
112737 000001 025500 3 #1,$FFLG 32TO REPORT FATAL ERROR 
112737 000001 025476 2 a oa sere 3;TO TYPE A MESSAGE 


000403 SATYC 
112737 000001 025500 : #1,SFFLG 3;TO ONLY REPORT FATAL ERROR 


RO,-(SP) 3=PUSH RO ON STACK 
MO R1,~(SP) ;=PUSH R1_ON STACK 
025476 SMF LG +4 eB TYPE A MESSAGE? 


5$ NOT: BR 
000001 CoP #APTENV, SENV : SOPERATING UNDER APT? 
000100 #APTSPOOL , SENVM £2 SHOULD  sPOO SPOOL MESSAGES? 

a4 (SP) ,RO SIGET MESSAGE ADDR. 
000002 ADD #2,4(SP) 7 BUMP RETURN ADDR. 
001170 : SMSGTYPE :3SEE wf. BONE W/ LAST XMISSION? 
001204 RO, SMSGAD +:PUT ADDR IN MAILBOX 

: (R0)+ ::F IND END OF MESSAGE 

001204 SMSGAD RO :;SUB START OF MESSAGE 


0 
001206 RO, $MSGLGT z3 
000004 001170 ears 7-TELL APT TO TAKE MSG. 


025410 3$: a4 (SP) ,4$ :zPUT MSG ADDR IN JSR LINKAGE 
000002 000004 #2,4(SP) RETURN ADDRESS 
177776 177776,=(SP) PUSH 197776 ON STACK 
024110 PC STYPE *:CALL TYPE MACRO 


$: 
025500 : SFFLG : ¢ SHOULD REPORT FATAL ERROR? 
BE 12$ ;I1F NOT: 
001210 oe 3 SRUNNING vee APT? 
SMSGTYPE :IFINISHED LAST MESSAGE? 
3I1F NOT: WAIT 
04(SP) ,SFATAL TIGET ERROR # 
#2, 4(SP) ; ;BUMP RETURN ADDR. 
$MSGTYPE 37 TELL APT TO TAKE ERROR 
SFFLG eC AR FATAL FLAG 
S$LFLG 
SMFLG 
(SP)+,R1 
(SP)+,RO 32POP STACK INTO RO 
R PC ;RETURN 
SMFLG: 0 3 IMESSG. FLAG 
$LFLG: 0 ;LOG FLAG 
$FFLG: 0 +S FATAL FLAG 
APTSIZE=200 


025476 
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CVKDAA.M11 APT COMMUNICATIONS ROUTINE 


APTENV=001 
APTSPOOL=100 
APTCSUP=040 


SEQ 0105 
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CVKDAA.M11 ERROR HANDLER ROUTINE SEQ 0106 


-SBTTL ERROR HANDLER ROUTINE 


FREER ERE REE KEE ERR KKK EI K KERRIER EKER KEK 
tSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
+ *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO MYTYPE ON ERROR 
= *THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
> *SW15= 1 HALT ON ERROR 
7*SW13=1 INHIBIT ERROR TYPEOUTS 
+ *SW10=1 BELL ON ERROR 
> *CALL 
7* N ;z;ERROR=EMT AND N=ERROR ITEM NUMBER 


025502 SERROR: 
C 7s TEST FOR CHANGE IN SOFT=-SWR 
001103 7$: SERFLG pd THE ERROR FLAG 
7$ ON'T LET THE FLAG GO TO ZERO 
001102 153422 $TSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
002000 153412 #B1T10,aSWR :;BELL ON ERROR? 
1$ :INO = SKIP 
001160 eerie 2 ¢RING a 
001112 : $ERT = COUNT THE NUMBER OF ERRORS 
001116 (SP), SERRPC 7:GET ADDRESS OF ERROR INSTRUCTION 
000002 001116 #2, SERRPC 
153340 001114 @SERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 153352 #B1T13,aSWR zSKIP TYPEOUT IF SET 
20$ TISKIP TYPEOUTS 
026016 PC ,MYTYPE ::GO TO USER ERROR ROUTINE 
001165 F 


o 


000001 001210 MAPTENV , SENV 7=RUNNING IN APT MODE 

$ :zNO,SKIP APT ERROR REPORT 
001114 025622 SITEMB, 7 hig :3SET ITEM NUMBER AS ERROR NUMBER 
025252 5 -SATY ; REPORT FATAL ERROR TO APT 


:zAPT ERROR LOOP 
153306 2 ¢HALT ON ERROR 
sSKIP IF CONTINUE 
SHALT ON ERROR! 
7; TEST FOR CHANGE IN SOFT-SWR 


3 RETURN 
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104401 
010046 
005000 
153700 
001004 


013746 


025776 

026000 012601 
026002 012600 
026004 104401 
026010 000207 


MACY11_ 27(654) 
ERROR MESSAGE TYPEOUT ROUTINE 


001250 
025714 


001165 
025732 


001165 


026012 


001165 


20-SEP-78 
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-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


PRR hahahahahahaha lala hahahahahaha hehehehehe hehahahehahehehehehelalelelelelslelslelahahshehehehelelsielelslslsisheheieieieiohel 


TRTHIS ROUTINE USES THE "‘ITEM CONTROL BYTE’’ ($ITEMB) 10 DETERMINE WHICH 


:*ERROR IS TO BE REPORTED. 


IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ ($ERRTB), 


[*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


-SCRLF 
~ apoeatie 


R 
a4$1TEMB,RO 
1$ 


SERRPC ,-(SP) 


RO 
#$ERRTB,RO 
(RO) +,2$ 
3$ 


(RO) +,R1 
9$ 


(RO) +,RO 
(RO) + 


7$ 
a(R1)+,-(SP) 
8$ 
a(R1)+,-(SP) 
(R1) 

S 

,11$ 

6$ 

(SP)+,R1 
(SP)+,RO 


-SCRLF 
PC 


ee cone me RETURN’’ & "LINE FEED*’ 
::PICKUP THE ITEM INDEX 


:21F_ ITEM NUMBER IS ZERO, JUST 
7-TYPE THE PC OF THE ERROR 
7sSAVE SERRPC FOR TYPEOUT 
ote TY ADDRESS 
aso ASCII(ALL DIGITS) 


:ZADJUST THE INDEX SO THAT IT WILL 
3 WORK FOR THE ERROR TABLE 


FORM TABLE POINTER 

3 PICKUP “ERROR MESSAGE’ POINTER 
:SKIP TYPEOUT IF NO POINTER 

zi TYPE THE ‘ERROR MESSAGE"' 

37’ ERROR MESSAGE’ POINTER oe HERE 
; 3" CARRIAGE RETURN'' & "LINE FEED*' 
sPICKUP ‘DATA HEADER’' POINTER 

+: SKIP TYPEOUT IF 0 

:; TYPE THE ‘DATA HEADER*’ 

32' DATA HEADER" a ah GOES HERE 
yw RETURN’’ & "LINE FEED’ 


sSAVE R1 
: sPICKUP "DATA TABLE’ POINTER 
IF NO DATA TO BE TYPED 
SOC TAL “DATA 4 a POINTER 
:‘‘OCTAL'' OR "DECIMAL"’ 
7:BR IF DECIMAL 
SESAVE @(R1)+ FOR TYPEOUT 
33GO TYPE--OCTAL ASCII(ALL DIGITS) 


7zSAVE a(R1)+ FOR TYPEOUT 
::GO TYPE--DECIMAL ASCII ah SIGN 
221S THERE ANOTHER NUMBER? 


:BR_IF_NO 
i: TYPE TWO(2) SPACES 


sRESTORE R1 
SEREST ORE RO 
ose RETURN’ & "LINE FEED** 


SEQ 0107 
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CVKDAA.M11 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0108 


4952 026012 020040 000 11$: ASCIZ / / 32TWO(2) SPACES 
53 026016 -EVEN 


026016 113737 001114 026050 MYTYPE: $ITEMB,ERRNUM ;FOR ERROR TYPEOUT 
026024 013737 013054 001174 MO SRXSA,$TESTN FOR APT 
. zAPT PRINTS $TESTN & $SFATAL IN THAT ORDER. 
s$TESTN WILL BE FLOPPY RXSA 
. :$FATAL_IS ERR # 
026032 025642 PC ,SERRTYP TYPE ERR MSG 
026036 026052 TERR 
026042 026056 PERR 
026046 PC 


026050 : sFOR ERR TYPEOUT 


026052 000000 : ; TOTAL ERROR COUNT 
026054 : ; TOTAL SOFT ERR COUNT 
026056 2 PASS ERR COUNT 
026060 


PASS SOFT ERR COUNT... ALL FOR EOP TYPEOUT 
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-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


020200 
600020 


000055 


026276 
000040 


026266 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 


20-SEP-78 
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FIO IOIIIOR IOI IORI ITO IORI IISA IAI SAISAI SSSI SA SSSSIS ASSIS SSS SAS SSAAM. 
SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 

:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

;*REPLACED WITH SPACES. 


3 *CALL: 
7* 


-* 
. 


$TYPDS: 
MO 


NUM ,-(SP) 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 


R5,-(SP) 
#20200,-(SP) 
20(SP) ,R5 
1$ 

R5 

#'=,1(SP) 

RO 


ASDBLK,R3 
#* ,(R3)+ 


R2 
$DTBL(RO) ,R1 
R1,R5 


4$ 
-R2 


3$ 

R1,R5 

Re 

5$ 

(SP) 

7$ 

(SP) 

6$ 

1(SP) ,=1(R3) 
#°0,R2 


9$ 

~1(SP) ,-2(R3) 
(R3) 

(SP)+,R5 


;;PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


7zPUSH RO ON STACK 
73zPUSH R1 ON STACK 
:zPUSH R2 ON STACK 
;ZzPUSH R3 ON STACK 
eter R5 ON STACK 
SET BLANK SWITCH AND SIGN 
NPUT NUMBER 


IMAKE THE ASCII NUMBER NEG. 
2 ZERO THE CONSTANTS INDEX 
SETUP THE OUTPUT POINTER 
33SET THE FIRST CHARACTER TO A BLANK 
NUMBER 


FORM THIS BCD DIGIT 
BR IF DONE 
TS INCREASE THE BCD DIGIT BY 1 


;zADD BACK THE CONSTANT 
hf IF BCD DIGIT=0 
THROUGH IF 0 


se STILL DOING LEADING 0‘'S? 
::BR IF YES 
+ MSD? 


;:BR IF NO 

2: YES--SET THE SIGN 

2 sMAKE THE BCD DIGIT ASCII 

:zMAKE IT A SPACE IF NOT ALREADY A DIGIT 
7zPUT THIS CHARACTER IN THE OUTPUT BUFFER 
: JUST INCREMENTING 

CHECK THE TABLE INDEX 

3:GO DO THE NEXT DIGIT 

3:60 5 EX it 

:GET T 


CHANGE TO ASCII 
22S THE LSD THE FIRST NON-ZERO? 
7:YES=-SET THE SIGN FOR TYPING 


32SET THE TERMINATOR 
7 POP STACK INTO R5 


SEQ 0109 
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026240 012603 


2 
000002 000004 


$DTBL: 


10. 
026276 $DBLK: .BLKW 


G 
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INE 


(SP) +,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, SDBLK 
2(SP) ,4(SP) 
(SP) +, (SP) 


;7POP STACK INTO R3 
;z;POP STACK INTO R2 
7zPOP STACK INTO R1 
;zPOP STACK INTO RO 


;;NOW TYPE THE NUMBER 


SZ ADJUST THE STACK 
ssRETURN TO USER 


SEQ 0110 
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026533 


000006 
026532 
026531 
000012 


026532 
177770 


026531 


026531 
026533 
026530 


H 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SUB IEA ISIS ISISIOIOISIOIDIOIOISIOIIOISIOIOIOIOI ICICI IOI IOI TOT TOTTI TT TOT OT OT TT TTT TE 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCII) NUMBER AND TYPE IT. 

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>*CALL: 
NUM ,-(SP) 3: NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 
N 7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M 7 zM=1 OR O 
23 1=TYPE LEADING ZEROS 
3, 0=SUPPRESS LEADING ZEROS 


‘ #STYPON-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
eae OR $TYPOC 


*CALL: 
; and NUM ,-(SP) ; NUMBER TO BE TYPED 
hel TYPON :2CALL FOR TYPEOUT 


{4ST YPOC-—~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


¢#CAL 
2 MO NUM ,-(SP) ; NUMBER TO BE TYPED 
Se ::CALL FOR TYPEOUT 


$TYPOS: a(SP) ,-(SP) 3sPICKUP THE MODE 
MO 1(SP) , SOF ILL 3¢LOAD ZERO FILL SWITCH 

(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

#2, (SP) ;sADJUST RETURN ADDRESS 

STYPON 

#1, $0F ILL ae THE ZERO FILL SWITCH 
22-SET FOR SIX(6) DIGITS 
37SET ye ITERATION COUNT 


Be Be Be Be Be Be Be os 
ae ee He 


a 


E RS 
SOMODE+1. R4 SIGET THE NUMBER OF DIGITS TO TYPE 


a R4 3;;SUBTRACT IT FOR MAX. ALLOWED 

R4 , SOMODE :zSAVE IT FOR USE 

SOF ILL.R4 2 2GET THE oat FILL SWITCH 

12(SP) ,R5 PICKUP _THE INPUT NUMBER 

R3 3:CLEAR THE OUTPUT WORD 
aa oe INTO *'C'' 


::GO DO MSB 
:FORM THIS DIGIT 


:GET LSB OF THIS DIGIT 
: TYPE a‘. DIGIT? 


7$ 
#177770,R3 GET. RID OF JUNK 
4$ i3TEST FOR 0 


SEQ 0111 
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11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0112 
37 SUPPRESS THIS 0? 
scBR IF VES 
;7;DON'T SUPPRESS ANYMORE 0'S 
7zMAKE THIS DIGIT ASCII 
3zMAKE ASCII IF NOT ALREADY 
33SAVE FOR TYPING 
8 32:G0 TYPE THIS DIGIT 
026530 : ;;COUNT BY 1 
2$ 33BR iv MORE TO DO 


7cBR I 
3; INSURE LAST DIGIT ISN'T A BLANK 
3:G0 DO THE LAST DIGIT 
s RESTORE R5 
; RESTORE R4 
(S ; RESTORE R3 
000002 000004 s :zSET THE STACK FOR RETURNING 


3& 


7 RETURN 
8$: ‘ 3zSTORAGE FOR ASCII DIGIT 
.B 32 TERMINATOR FOR TYPE ROUTINE 
S$OCNT: . ::OCTAL DIGIT COUNTER 
SOFILL: . 32:ZERO FILL SWITCH 
026532 SOMODE: .WORD : NUMBER OF DIGITS TO TYPE 


5 
5 
5 
5 
5 
5 
5 
5 
5 


ad aad and and aad ad ed 
QOUSWN—O 
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CVKDAA.M11 TRAP DECODER SEQ 0113 


-SBTTL TRAP DECODER 


ASSES IIIS IIIS IOITIIIIIOIUIIOIOIOI IIT ITO I TOOT TOTO TOTO TOTO TTT TTT TE 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,~(SP) 3zSAVE RO 
000002 2(SP) ,RO 72GET TRAP ADDRESS 
-(RO) ; sBACKUP BY 2 


77BA 
(RO) ,RO :;GET RIGHT BYTE OF TRAP 
RO 7zPOSITION FOR INDEXING 
026570 STRPAD(RO),RO ;; INDEX TO TABLE 
RO 32GO TO ROUTINE 


VIS WhO OO~N 


ee ed ds nd nd od 
coo~ 


PAA A AAAI 


Ww 
=’ 


026554 


vw 
= 
Ww 
Nm 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI*’ MACRO 
026556 6 $STRAP2: MOV (SP) ,~(SP) 7sMOVE THE PC DOWN 
000004 000002 MOV 4(SP) ,2(SP) :zMOVE THE PSW DOWN 
RTI zsRESTORE THE PSW 


-SBTTL TRAP TABLE 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


: ROUT INE 


026570 026556 $TRPAD: .WORD $TRAP2 
$ 2-CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
:-CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
:-CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
; = CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
32 CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


024442 3; CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


024372 32 CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
;=CALL=RDCHR TTY TYPEIN CHARACTER ROUTINE 
3; CALL=RDLIN T TTY TYPEIN STRING ROUTINE 

010760 GTSDEV ;;CALL=GTDEVM TRAP+12(104412) “C WILL OPEN UP SDEVM 


3;MAX ADDR FOR 8K WITH APT = 37400 
;MAX ADDR FOR 8K NO APT BUT TO SAVE ABS LOADER = 37500 
003174 ° START 
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CVKDAA.M11 CROSS REFERENCE TABLE 


176500 1146 1187 
000000 


SEQ 0114 


=o 
RoE 
R 


Ee 40514 
1679* 1684* 1712* 1717 1745 4514 4516 


ca 


at ot 2 = SF 2 3 SS I SI IO OO 
SA AAA AA AA AD ADRAAASAOMAUW 


— SS SS I =H 
BALL LRRLRL RHEL LKR EOS -2 
& 


BRRARLARSRS 
ARAARAARAARX 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
} 


aed a cad cd ce al ed a ce od ced ed eed 
i ac es ed eed a ed aed ae ed ed ed eed ed 
OW CON NO COCO NEU SM 
MNOS — Cf OONOM 


1894 
3083 
1589* 1619* 1779% 1780* 1895* 1904* 1928 1929» 


1871 18874 


3079*  3095« 





L 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0115 


48524 4885 


, a ee 

00.00 CO 

Se5U3S3 weW 
AAWODO = a 


8 
88s 


00000 

002000 

004000 964 

010000 oon 5 0 1867 1913 1931 1956 


3754 


2332 2398 2435 





A 1 EXERCISER 


DAA.M11 


005704 
012544 
012546 


011242 
011332 
011334 


ne 


cT3 
DATCHK 016712 
DD 000040 


DDISP 


177570 
DEVM 020311 


M 
MACY11 27(654) 20-SEP-78 10:40 PAGE 116 
CROSS REFERENCE TABLE 


1787 1892 1894 
9634 


1894 1936 1938 1970 1972 2004 


3088 
3127* 


1629 
2140 


41st 


2006 


SEQ 0116 





PDT=11 EXERCISER 
CVKDAA.M11 
OF 024062 
DF 1 024070 
DF2 024100 
DH1 023141 
DH2 23160 
DH3 23204 
DH4 023246 
DHS 023277 
DH6 23334 
DH7 023401 
DH8 023470 
DISPLA 001142 
DISPRE 000174 
DNA = 100000 
DNAIE = 000040 
DONE = 000200 
017513 
DRVO 017076 
DRV1 017103 
DSC = 100000 
DSI_ = 100000 
DSIE = 000040 
DSRDY = 001 
DSWR = 177570 
DTR = 2 
DT1 23560 
DT10 023710 
DT11 023732 
DT12 023754 
DT13 023776 
DT14 024020 
DT15 24036 
DT16 024050 
DT2 023566 
DT3 023576 
DT4 023612 
DT5 023622 
DT6 23634 
DT7 023646 
DT8 023660 
DT9 23672 
DUN 017622 
DXTST 003120 
DXTSTO 006036 
DXTST1 006300 
DXTST2 006634 


MACY11_ 27(654) 
CROSS REFERENCE TABLE 


Wrong 
Bras 


a a ce a ed ce ee ce ed a ee ce ed ed ed en 


SO—NMWNWoPoNnnenrnrnrwn 


ers 


1211 


a ae ee 
Pusan 


S 
N 


20-SEP-78 


™Moo— 
cows 


NRMVWMWWwrOT 
SNES 


ed aed ad aed eed eed eed eed 
oN Iw 


N 
10:40 PAGE 117 


2025 
21204 


20 


— Ss 
woes 
Ww 


95 


2055 


2069 


2083 


3991 


4010 


1928 
1316 
45314 
45374 
1400 


45284 
3342 


1343 
1367 


1403 


3404 


1346 
1370 


1406 


3428 


SEQ 0117 


1349 
1373 


1409 


3499 
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CVKDAA.M11 CROSS REFERENCE TABLE 


007170 22874 


014612 
013712 


014556 
011336 
002406 


013176 


3308 
2467* 
3449 


2466* 


2937 


3789* 
3844* 


31794 


3630* 


3417 


2414* 
3521* 


3246 


3425* 
2444% 


3533* 


3256* 


3213 
4531 


3211 


3593* 


3677 


4534 


31764 


3271* 


3259* 


3379 


3613*  3648* 


3679* 3705 


SEQ 0118 
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013042 
0 


022116 


MACY11 27(654) 
CROSS REFERENCE TABLE 


20-SEP-78 


3791 


1322 


C 10 
10:40 PAGE 119 


38604 


3682 
3 3591 
3826* 37 


3567 3589 


4548 


1325 1328 1343 1349 


3794 
3631 


3656 


43004 


3813 
3633* 


3746 


3635 


3819 


3637* 


3823 


3640* 


3825* 


SEQ 0119 


3658 


4537 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0120 


022152 
43664 


2451 24804 


3897*  3906* 3913* 39514 
4520 4524 4531 4537 4543 4546 


1654* 1729* 2516* 2558* 2559* 
2786 


at. 2365* 2380* 2407* 2416* 
* 


26424 
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CVKDAA.M11 CROSS REFERENCE TABLE 


IE = 000100 9504 10244 
1947 948 20 


INITAL= 000011 
012012 


012004 
000002 


3485 
2497* 


17384 
4516 


SEQ 0121 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0122 


3623* 3708*  3786* 49724 


2636 2638 


3614 3649 3683 3692 
3610 3624 3446 3680 
1834 1895 1928 1929 


0 20 
= 177170 20 2 2082 2147 2166* 2232* 2257* 
2319* 2366* 2382* 2408* 2417 2423 2447* 
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CVKDAA.M11 


177172 
177172 
177174 
012740 
= 000264 
=%000000 


SMRC 
SMRSRV 012640 


MACY11 27(654) 
CROSS REFERENCE TABLE 


31274 


20-SEP-78 


G 10 
10:40 PAGE 123 





SEQ 0123 
$e50 3301 


3578* 
3888 


5106* 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0124 


1801 1808 1813 18204 
3106* 


012144 
002000 


013052 
013054 


1553* 
3815 
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VKDAA.M11 CROSS REFERENCE TABLE SEQ 0125 


nnnnnnnnnna 


49694 
2340 2357 2410 2419 2449 


27814 
1950 1984 2018 27264 
2081 28154 3989 4008 


3015* 
3042* 


3068* 


3984 


} 
41174 


3248* 3333* 3419* 3622* 3707* 3785» 49704 
2492 2495 3459 3820 4942 51524 
1735 1767 1768 1809 1812 1814 1869 1870 1915 1916 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0126 


3013* 
3040* 30454 
3066* 30714 


46414 


4701 4790 4883 4898 4930 4950 
2825* 2987* 3014* 3041* 3114* 3118* 3141* 
1774 1 934 


1 1965 
2263 2268 


4878* 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0127 


4898 


4832 
4644 


4909 4957 
4898 


a fo ss ee a > 
Ne APRS 
SVaelere 


— =  S OM 
a KE ON 


= 


a 
6644 
a 


1563 4588 4885 


4840* 


5090* 51164 


4774 4790 4898 


C= «*eneee 


SRDDE 
pate 025034 


DOCT= «**e«e% 
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VKDAA.M11 CROSS REFERENCE TABLE SEQ 0128 


kekeee 
000106 
177777 
132000 
001212 


51524 


46314 


10694 10734 10784 1084 10854 
527 2424 2471 25094 2739 
45114 4644 4647 47894 


eeeeee 


001000 
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SEQ 0129 


EX 
CVKDAA.M11 CROSS REFERENCE T 
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CVKDAA.M11 


CROSS REFERENCE TABLE SEQ 0130 





B 11 
PDT=11 EXERCISER MACY11 27(654) 20-SEP-78 10:40 PAGE 131 
CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0131 


2627 2820 
3812 4700 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0132 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0133 





E 11 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0134 
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CVKDAA.M11 CROSS REFERENCE TABLE SEQ 0135 


4895 
de 


5148 


ERRORS DETECTED: 





611 
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CVKDAA.M11 SEQ 0136 


*Z7:CVKDAA/1,2:CVKDAA. SEQ/CRF /SOL=CVKDAA.M11 
RUN-TIME: 24 15 3 SECONDS 
CORE USED: 25K 





